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現代 社会 に お いて , パソ コン は 社会 の すみ ずみ まで 普及 し その 影響 力 を 次 第 
に 大 きく し て いる . 10 年 ほど 前 パソ コン が 初め て アメ リカ か ら 輸 入 され 始め た 
頃 , それ は ご く 少 数 の 研究 者 や マニ ア の た め の 道具 で あっ た 。 時 が た つ に つれ 
パソ コン は , パー ソナ ル な コン ピュ ー タ と し て 個人 の 限定 され た 利用 形態 を 脱 
皮 し , 事務 処理 。 学習 研究, ゲー ム 等 に 広い 応用 性 を 見 い 出 され た の で ある . 

この よう に 広く 用 いら れる よう に な っ た パソ コン に 対し て 大 切な も の は ソフ 

トウ ェ ア で ある . それ は 汎用 コン ピュ ー タ と まっ た く 同 じ で ある . どん な に 立 
派 な コン ピュ ー タ で も ソフ トウ ェ ア な くし て は 何 の 役 に も 立た な い . 逆 に いう 
と 優れ た ソフ トウ ェ ア は 社会 の 貴重 な 財産 と な る . その ソフ トウ ェ ア を 作成 す 
る 言語 と し て パソ コン に は 多く の 場合 BASIC が 用 いら れる . BASIC は ほん の 
少し の 英語 と 数 学 の 教養 を も ちっ て いる も の に は 大 変 覚 ん や すい と いう メリ ッ ト 
が ある . そし て それ は ハー ドウ ェ ア や シス テム 全般 に つい て の 知識 を ほとん ど 
必要 と し な く て も 使う こと が で きる の で ある . し か し , まさ に この BASIC の 特 
徴 が 色々 な 問題 生ん で いる の で ある . すなわち 。 あ まり コン ピュ ー タ 自身 の 
勉強 を し な く て も シス テム は 稼動 する . また プロ グラ ミン グ 技 法 を 学習 せ ず と 
も 一 応 プ ログ ラム は 動く の で ある . その た め 。 実際 に パソ コン 内 で 稼動 し て い 
る プロ グラ ム を 見 る と 。 あ まり に コン ピュ ー タ の 動作 原理 や プロ グラ ミン グ 技 
法 を 無視 し て いる も の が 多く 発見 され る . 処理 効率 を 考え ず , 使い や すさ を 配 
慮 せ ず た だ 力ずく で コー ディ ング し た も の が し ば し ば 見 つけ られ る の で ある . 

既 述 の よう に パソ コン は 個人 の 利用 の た め と いう に と ど ま ら ず 深 く 社 会 に 浸 
透 し て お り ,。 その ソフ トウ ェ ア は 社会 の 財産 に な る も の で ある . それ を 作成 者 
個人 し か 理解 で き な い よう に 作っ た の で は , パソ コン の 社会 的 要請 に 応え られ 
な いで あろ う . 効率 を 無視 し て いた り , 修正 要求 に 迅速 に 応え られ な いよ う で 
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は 困り も の で ある . 本 書 は , この よう な 社会 の パソ コン ・ ソ フト へ の 要請 に 十 
分 対応 で きる よう な 知識 を 提供 する た め の も の で ある . すなわち , 有名 な プロ 
グラ ミン グ 技 法 や アル ゴリ ズム ,。 コー ディ ング の し か た 等 を 誰 に で も 理解 で き 
る よう に 解説 し た も の な の で ある . 

本 書 は 読み や すい よう に 各 節 は 各々 独立 し て いる . また 節 の 順番 に 従っ て 読 
む 必 要 も な い . 気 の 向 いた と ころ , 必要 な と ころ か ら 読 ん で 頂き た い . また 本 
書 に 記載 され て いる プロ グラ ム 例 は NEC PC-8801/9801 の た め の BASIC を 
基本 と し て いる . 当然 , 本 書 の 内 容 は マシ ン に 依存 する も の で は な い . 他 機種 
に つい て は その 各々 の マニ ュ ア ル を 参照 し て 随時 修正 し て 頂き た い . 

本 書 の 理解 に は 入門 程度 の BASIC の 知識 を 仮定 し て いる . その た め 細 か い 
命令 の 解説 は 省 い て ある . BASIC を 初め て 学ぶ 方 が 本 書 を 利用 され る と き は 。 
必ず BASIC の 入門 書 を 座右 に 置い て も らい た い . 

本 書 が 少し で も パソ コン の プロ グラ ミン グ 技 法 の 向上 に 役立て られ れ ば 幸い 
で ある . し か し , 本 書 を 読ん だ か ら と いっ て すぐ に 良い プロ グラ ム が 作れ る わ 
け で は な い 。 大 切な の は 優れ た プロ グラ ム を 作ろ うと する 意志 で あり , その た 
め の 学習 意欲 で ある . 十分 その 辺 の こと を 確認 し て お いて 頂き た い . 


著 者 
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第 1 章 





優れ た プロ グラ ム 


の 設計 の た め に 


我々 が プロ グラ ム を 作ろ うと 思う と き , ま 
ず そ の 設計 を する わけ で ある が , ここ で は 。 
その た め の 基 礎 知 識 を 提供 する . すなわち 。 
プロ グラ ム は どの よう に 作ら れる べき か ,。 そ 
の た め に は どん な 手段 と 知識 と が 必要 な の か , 
と いっ た こと を 概説 する . 


優れ た プロ グラ ム と は 


我々 が プロ グラ ム を 作る と き 当 然 優れ た も の を 作る こと を ね ら う で あろ う . 
し か し , プロ グラ ム に 関し て “優れ て いる " と いう こと を 真 に 定義 する の は 大 
変 で ある . 何 を も っ て 優れ て いる と 評価 する か は 。 場合 に よっ て 違う か ら で あ 
る . ここ で は “優れ て いる " と いう こと の 一 般 的 な 目安 を 記述 し て みよ う . こ 
の 目安 を 確認 し た 上 で 。 ケー スバ イケ ー ス に 優れ た プロ グラ ム を 作成 する こと 
を 追求 し て も らい た い . 

優れ た プロ グラ ム の 条件 と し て , まず 掲げ られ る の が 

(1) 正確 で ある 

と いう こと . どん な 立派 な プロ グラ ム で も これ な くし て は 意味 を な さ な い . た 
と えば 金銭 計算 で 1 円 の 計算 ミス も 許さ れ な い の で ある . し か し 正確 だ か ら と 
いっ て も それ だ け で すむ も の で は な い . 当然 , 次 の こと も 必要 で ある . 

(2) 使い や すい 

プロ グラ ム を 使う の に 。 い ちい ち マ ニュ アル を 見 な が ら 使う プロ グラ ム で は 利 
用 者 は 大 変 了 困る 、 ま た , 一 つの 処理 を する の に 何時 間 も 待 た され た の で は た ま 
っ た も の で は な い . た と えば オセ ロ ・ ゲ ー ム を する と き 。 人 間 が 考え る 以上 に 
パソ コン が 考え 込ん で し まっ て は , パソ コン ・ ゲ ー ム は 楽し み で は な く イ ライ 
ラ さ せる だ け の も の に な っ て し まう . 処理 速度 は 十分 大 きく な く て は な ら な い . 

以上 の 2 点 は 誰 も が 納得 する と ころ で ある . 何 年 か 前 まで の パソ コン の プロ 
グラ ム は , 実際 に これ 以上 の も の は 要求 され な か っ た . し か し パソ コン が 社会 

に 深く 浸透 し 。 それ に 対す る 要求 も 多様 に な っ て きた 現在 , この (1),(2) を みた 
す だ け で は 決し て 良い プロ グラ ム と は 呼べ な いよ うに な っ て いる . 我々 は 次 の 
要求 を さら に 求め る . 

(3) 分 か りや すい こと 

(4) 間違い に くい こと 

(5) 追加 ・ 訂 正 が し や すい こと 
これ ら 三 つ は , 互い に 関連 し 結び 合わ さっ て いる 概念 で ある . 分 か りや すい こ 
2 





と は 間違い に くい こと で あり , また 間違い に くく 良く 整理 され て いる た め に 追 
加 ・ 訂 正 が し や すい の で ある 。. 

これ ら 三 つの 要求 が 。 な ぜ 現 在 の パソ コン ・ プ ログ ラム に 求め られ て いる の 
か を 説明 し よう . まず 第 一 に 。 バ グ の 発見 の し や すさ が 掲げ ちら れる. パソ コン 
の プロ グラ ム と いっ て も , 以前 の よう な 単純 な 論理 の も の だ け を 扱っ て いれ ば 
よい わけ で は な い . 社会 の 要請 に 従っ て 複雑 な 処理 を せ ね ば な ら な く な っ て 
き て いる . この 複雑 な 処理 に 対し て , 当然 プロ グラ ム は 長く な り , むず か し く 
な っ て き て いる . 人 間 の 思考 が 不可 避 的 に 誤り を 伴う 以上 , その 所 産 で ある プ 
ログ ラム に も 誤り が ある . その 誤り を 長く 複雑 な プロ グラ ム の 中 に 発見 し ,。 す 
ぐに 対処 で きる よう に する の は 容易 で は な い . それ を 少し で も 容易 に し よう と 
いう の が (3),(4), (5) の 努力 で ある . 

第 二 の 理由 と し て , パソ コン の プロ グラ ム は その 作っ た 本 人 だ けが 理解 し て 
いれ ば よい , と いう 時 代 で は な く な っ て きた こと で ある . パソ コン は 既に パー 
ソナ ル な も の で は な く な っ て し まっ た の で , 一 人 の 人 間 が 作成 し た プロ グラ ム 
は , 他 の 多く の 人 に 見 られ 利用 され , 拡充 され る よう に な っ て いる . それ は ま 
た パソ コン が 社会 の 財産 に な る 条件 で も ある . この と き , 自分 に だ け 分 か る “ 汚 
な い " プロ グラ ム を 書い て いて は , それ を 利用 し た り 修正 し て 拡充 し て ゆこ う 
と いう 他 の 人 の 要求 を 王 外 する こと に な っ て し まう . 現代 に お いて は 。 誰が 見 
て も 分 か る プロ グラ ム を 作る こと は 非常 に 大 切 で あり , それ が (3)。(4)。 (5) の 方 
針 と な っ て 現われ て いる の で ある . 

その 他 に も 色々 な 理由 が 掲げ られ る が , ここ で は , これ だ け を 強調 すれ ば 十 
分 で あろ う . 我々 が プロ グラ ミン グ す る と き , 常に ここ で 述べ た (1)^(5) の こと 
を 意識 し て いな けれ ば な ら な いで あろ う . 


優れ た プロ グラ ム を 作成 し よう と 常に 努力 し て プロ グラ ミン グ し よう . 





プロ グラ ム は モジ ュー ル 化 
し よう 


優れ た プロ グラ ム の 要件 と し て 

(1) 分 か りや すい 

(2) 修正 し や すい ぃ 
と いう こと が ある . この 二 つ を 実現 する 代表 的 な 手法 と し て 。 プ ログ ラム の モ 
ジュ ー ル 化 と いう も の が ある . モジ ュー ル と は 本 来 基本 的 な 部 品 と か 構成 要素 
の こと を いう が , 我々 が プロ グラ ム を 作る と き 部 品 か ら 製品 を 作り 上 げ る よう 
に , いく つか の 論理 的 な まとまり か ら , プロ グラ ム 全 体 を 構築 せよ と いう の が 
「 プ ログ ラム の モジ ュー ル 化 」 で いわ ん と する こと で ある . 
この 要請 を 図示 する と 次 の よう に な る . 


START START 














処理 AB, C 
の 混 作 














END 





この 二 つ の フロ ー チ ャ ー ト で 右側 の 構造 を プロ グラ ム に 与え よ 。 と いう の で 
ある . 左 の よう な 構造 に する と 次 の よう な 欠陥 を も ちっ て し まう . 
(1) デパ バッ グ が し に くい 
(2) 機能 追加 ・ 修 正 が し に くい 
モジ ュー ル 化 する こと で 一 つ ひ と つの モ 
また 部 品 を 入れ 換え る よう に 機能 修正 





ー ル に 責任 を も た せる こと が で き , 
きる の で ある . プロ グラ ム が 大 きく 





と 』 





な れ ば な る ほど , この プロ グラ ム の モジ ュー ル 化 と いう 思想 は , 我々 に 合理 的 
な プロ グラ ム 設 計 の 指針 を 与え を て くれ る も の で ある . 

プロ グラ ム を どの よう に モジ ュー ル 化 すべ きか は , 対応 する 問題 に 依存 する 
が , その 原則 と な る も の は , 分 割 し た モジ ュー ル 相 互 の 関係 が で きる だ け 独 立 
する よう に する こと で ある 。 も し それ ら が 独立 し て お ら ず , 互い に 呼び 合う こ 
と が 多い と , か えっ て プロ グラ ム は 難解 に な っ て し まう . 

プロ グラ ム を モジ ュー ル 化 し て 設計 する と 。 また 次 の よう な メリ ッ ト が 生ま 
れる . 長い プロ グラ ム を 一 人 で 作成 する の は 大 変 だ だが , それ を 複数 の 人 間 が 共 
同 し て 作ろ うと 思う と な お さら 大 変 な こと が 多い . 一 般 的 に パソ コン の プ ブログ 
ラマ ー は 。 共 同 作業 に 不慣れ な た め , いざ 共同 で プロ グラ ミン グ し よう と する 
と 。 非常 に 繁 雑 に な る . それ を 回 避 す る 手段 の 一 つが 。 プロ グラ ム の モジ ュー 
ル 化 で ある . プロ グラ ム を いく つか の 独立 し た 処理 に 分 割 し て お け ば , や り と 
りす る デー タ 構 成 を し っ か り 打ち 合わ せ て お く こ と で , 容易 に 共同 作業 が 行え 
る こと に な る 。 ・ 
プロ グラ ム は ダラ ダラ と 長く せ ず に , 論理 的 に 独立 し た モジ ュー ル で 組み 立 
て よう . 





ミク ロ な モジ ュー ル 化 





我々 が プロ グラ ム を コー ディ ング し て ゆく と き , 上 下 の 命 令 お よび 隣り 

合う 命令 は 互い に 強い 論理 的 な 関係 を も っ て いる べき で ある . た だ 無 批判 
に 命令 を 並べ て ゆく こと は 厳 に 債 し むべ き で ある . そう する と , で き 上 が 
っ た プロ グラ ム の 一 つの モジ ュー ル 内 に お いて も , 色々 な 独立 な まとまり 
が で きる こと に な る . まさ に ミク ロ な モジ ュー ル 化 が な され る わけ で ある . 
我々 は , この よう に プロ グラ ム を 組み 立て る こと で , 修正 要求 に 容易 に 対 
応 で き , また バグ 発生 に 対し て も 迅速 な 対処 が で きる の で ある . 











R プロ グラ ム に は 振り 出し 点 
を 作る う 


大 き な プ ログ ラム を 作る と きま ず 考 える の が プロ グラ ム の モジ ュー ル 化 (2 
節 参照 ) で ある . 一 つの プロ グラ ム を 論理 的 に 別々 な パー ト に 分 け , それ を 組 
み 合わ せ て 全体 を 作る の で ある . その 組み 合わ せ の し か た と し て 。 次 の よう な 
方 法 を 覚え て お く こ と は 有益 で ある . すなわち , すべ て の モジ ュー ル は プロ グ 
ラム の 一 点 に も どる よう に せよ と いう 設計 方 法 で ある . プロ グラ ム を 構成 する 
モジ ュー ル は , 論理 的 に 独立 し て いる か ら , それ ら は 対等 で ある が , その 各 モ 
ジュ ー ル を 管理 する メイ ン ル ー チ ン を 作る の で ある . 各 モ ジュ ー ル は 。 その メ 
イン ルー チン か ら 呼 び 出 され , 処理 が 終わ れ ば 再び その メイ ン ル ー チ ン に も ど 
る , と いう 方 法 を と る の で ある . そし て , その メイ ン ル ー チ ン に 帰る と き 。 そ 
の も どり 点 と な る と ころ を 各 モ ジュ ー ル に 共通 させ て お く よ う に する の で ある . 






1000 
1230| * ENTRY メイ ン ルー チン 
1330|ENp 

2000| ] 

モジ ュー ル A 

2430]GOTO *ENTRY 

3000|′ modue g ] 

1 モジ ュー ル B 
37201e0T0 *ENTRY 

4000|' modue c 

H モジ ュー ル C 








4570|GOTO *ENTRY 


この よう な 構造 を と る こと で 次 の よう な メリ ッ ト が 生じ る . 
1) メイ ン ル ー チ ン が 資源 を 管理 する こと で シス テム 全体 の 管理 が 楽に 








な る . 
(2) 割り 込み (STOP、HELP, FUNCTION KEY の 割り 込み ) に 対し 
て 対処 し や すい . 
(3) バグ 発生 に 対し て 対応 が と りや すい . 
この 方 法 は 双 六 に 振り 出し 点 が ある の に 似 て いる . 振り 出し 点 が ある こと で 
全体 は 見 や すく な り , それ が ある こと で 困っ た と き に そこ に も どれ る の で ある 。. 


きち ん と し た メイ ン ・ ル ー チ ン を つく る と , プロ グラ ム 全 体 が 見 や すく な る . 





| wem | モジ ュー ル は 1 入口 , 1 出品 


メイ ン ル ー チ ン か ら 各 モジ ュー ル を 呼ぶ と き の 原 則 , お よび 復帰 する と 
き の 原 則 は 1 入口 , 1 出口 で ある . すなわち 次 の よう な 呼び 方 , 帰り 方 を し 
て は な ら な いと いう こと で ある 。. 





"3270 *SUBA1 





1590 IF ID= ニ 1 THEN GOSUB * SUBA1 ま 
ーー 3320 *SUBA2 








1770 GOSUB *SUBA2 一 ーーーー ト ナー 


- 十 - 3530 IF ID=1 THEN RETURNI 


ー3700 RETURN 














この 図 を 見 れ ば 分 か る よう に , 複数 の 出入 口 が 一 つの モジ ュー ル (いま 
の 場合 サブ ルーチン ) に ある と 非常 に 見 に くく な る の で ある . 














BASIC の 特徴 を つか も う 


優れ た プロ グラ ム を 作成 する た め に は , まず その プロ グラ ム を 記述 する 言語 
の 特徴 を 知っ て お か ね ば な ら な い . BASIC の 特徴 を 知る に は 次 の プロ グラ ム 
を 考え る の が 早い . 
100 =Os 1=1 
110 IF 1>1OO THEN 15O 
120 5=S+Ii 
1 さ O エニ 1+1 
14O BOTO 11O 
15O PRINT "8="iS 
16O END 
これ は 1 か ら 100 ま で の 整数 の 和 を 求め る プロ グラ ム で ある . これ を 
BASIC が どの よう に 処理 し て ゆく か を 考え て みる . RUN コマ ンド が 実行 され 
る と 行 番号 100 を BASIC は 見 る . そし て 何 が 書か れ て いる か を 調べ (解読)。 
それ に 従っ て 実行 する . 次 に 行 番号 110 が 見 られ る . ここ で も BASIC に よる 解 
読 と , それ に 続く 実行 が 組み 合わ され る . 行 番号 140 まで この よう な 処理 の も 
と に 一 直線 に た どり つく が , 次 に 行 番 号 140 が 解読 ・ 実 行 され る と , 再び 行 番 
号 110 へ も どる . そし て 行 番号 110 か ら 140 まで が 100 回 解読 ・ 実 行 を くり 返 
きれ て , この ルー プ が 終了 する . 注意 せ ね ば な ら な いこ と は 「 解 読 」 と いう 操 
作 が 常に 伴わ れ て いる と いう こと で ある 、. 
コン ピュ ー タ は , 2 進数 し か 理解 で き な い . そこ で , BASIC て 記述 され た 命 
令 は , 2 進数 に 解読 され , そこ で 始め て 実行 され る の で ある . そし て BASIC 
は , すべ て の BASIC 命令 を 1 ステップ ずつ 解読 し て ゆく . し た が っ て , ルー プ 
計算 で は 同じ 命令 の 解読 を 何 回 で も や る こと に な る . これ は , 命令 の 解読 ( 翻 
訳 ) を 一 気 に 行い , 後 は その 結果 を 用 いて 実行 する コン パイ ル 言 語 と 大 きく 違 
う 点 で ある . BASIC プロ グラ ム の 実行 は 英語 の 不得 手 な 生徒 (CPU) が 辞書 
(BASIC) を 片手 に 必死 に 英文 を 和訳 し て いる よう な も の な の で ある . この 特 
徴 を し っ か りつ か ん だ 上 で , プロ グラ ム の 設計 お よび コー ディ ング を せ ね ば な 
ら な い . 
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BASIC は 翻訳 に 手間 どる 言語 で ある , と いう こと を 忘れ な いよ うに . 








| wem | コン パイ ル 言 語 と イン タプ リタ 言語 


コン ピュ ー タ は 2 進数 し か 解読 で きず , し た が っ て , BASIC の よう に 人 
間 の 言葉 に 近い 言語 で 書か れ た プロ グラ ム は , その 2 進数 に 何ら か の 形 で 
翻訳 され な けれ ば な ら な い .( コ ンピュータ が 理解 する 2 進数 の 並び で 記述 
され た プロ グラ ム を 機械 語 プ ログ ラム と 呼ん で いる . それ に 対し て 
BASIC な ど は 人 間 に 近 い 言 語 で プロ グラ ム を 記述 する た め , その よう な 
言語 を 高級 言語 と 呼ん で いる .) 

我々 は , 翻訳 の し か た か ら 高 級 言語 を 二 つ に 分 類 し て いる . 一 つ は コン 
バイ ル 言 語 で あり ,、 一 つ は イン タプ リタ 言語 で ある . コン パイ ル 言 語 に は 
FORTRAN, COBOL 等 汎用 コン ピュ ー タ で 使用 され て いる も の の 多く が 
含ま れる . この 言語 は ,。 まず 記述 され た プロ グラ ム を 一 気 に 翻訳 し 。 コ ン 
ピュ ー タ の 理解 で きる 2 進数 の 並び か ら な る 機械 語 プ ログ ラム を 作成 し て 
し まう . そし て 実際 に RUN させ る の は 。 こ の 機械 語 プ ログ ラム で 行う の で 
ある . それ に 対し て イン タプ リタ 言語 は , 1 命令 1 命令 を 一 つ ひ と つ 翻 訳し 
て ゆく . まき に 同時 通訳 的 な 言語 で ある . し た が っ て , 翻訳 時 間 が 計算 処 
理 時 間 の 大 半 を し め て し まう の で ある . 

パソ コン に 効率 の 悪い イン タプ リタ 言語 で ある BASIC が 採用 され て い 
る の は 二 つ の 理由 に よる . 一 つ は コン パイ ル 言 語 の よう に 新た な 機械 語 プ 
ログ ラム を 作成 する も の で は , その 新た な プロ グラ ム を 収納 する 領域 が パ 
ソコ ン に は な い 。 と いう こと で ある . も う 一 つの 理由 は デバ ッ グ が 容易 で 
ある , と いう こと で ある 。. 














バグ 対策 は 綿密 に 


人 間 に は 誤り が つき も の で ある . 特に コン ピュ ー タ の よう に 複雑 な シス テム 
に 致 っ て は それ が 不可 避 的 と も いえ る , 何 千 , 何 万 行 に わた る プロ グラ ム に お 
いて は , 誤り が まっ た く な いと 思う 方 が 不 自然 で あろ う . 

我々 が プロ グラ ム を 作成 し よう と する と き ,。 始め か ら 完 璧 な も の を 作ろ うと 
思う と 肩 が こる . 上 述 の よう に 複雑 な も の に は , 誤り が 伴う と いう こと を 始め 
か ら 受 け 入れ て し まえ ば よい . そし て 次 の よう な 発想 を と る こと を 勧め る . 


どう せ 誤 り を 犯す な ら , その 誤り が すぐ に 発見 で きる よう に 設計 し よう . 


パソ コン に お いて , 誤り と 呼ば れる も の に 次 の 五 つ が あげ られ る だ ろう . 
(1) ハー ド エ ラ ー 
(2) モニ タ エ ラ ー 
(⑬) 文法 エラ ー 
(4) 論理 エラ ー 
(5) 入出 カ ェ ラー 

ハー ド エ ラ ー と は , ハ ー ド ウェ ア す な わ ち パソ コン の 機械 その も の の 誤り ( 故 
障 ) で ある . モニ タ エ ラ ー と は メー カ の 作成 し た プロ グラ ム (モニ タ ま た は シ 
ステ ム プ ログ ラム な ど と 呼ば れる ) の 中 の 誤り で ある . 文法 エラ ー と は , 我々 
が BASIC 言語 を 用 いた と き に 犯し た 文法 上 の 誤り で ある . 論理 エラ ー と は , プ 
ログ ラム 作成 者 が 設計 お よび コー ディ ング 時 に 犯し た 論理 上 の 誤り で ある . 入 
出力 エラー と は , オペ レー タ が キー 操作 を 誤っ た と か , パソ コン と 他 の コン ピ 
ュー タ と を オン ライ ン て で 結合 し た と き 。 その 回 線上 で 発生 し た 雑音 , な どの こ 
と で ある 。 

(2), (3), (4) の 誤り の こと を , し ば し ば バグ (bug, 虫 ) と いう . そし て その 誤 
り を 発見 し , 訂正 する こと を デバ ッ グ (debug, 虫 と り ) と いう . 我々 が プロ グ 
ラム を 設計 し , コー ディ ング する と き 。 一 番 神 経 を 使わ ね ば な ら な い の は , こ 
の バグ 対策 で ある . 
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ハー ド エ ラ ー や モニ タ エ ラ ー に つい て は , パソ コン の 通常 な 使用 法 に お いて 
は 対策 を 考え る 必要 は な い . また 入出 力 エ ラー に つい て は , その 入出 力 エラ ー 
に どん な 種類 が あり , プロ グラ ム は その 各々 に 対し て , どの よう な 対応 を と る 
べき か を 考え て お か ね ば な ら な い が , その 対応 きえ し っ か り し て いれ ば 。 入出 
カエ ラー は エラ ー で ある こと を や め る . また (3) の 文法 エラ ー に つい て は , プロ 
グラ ム を 実行 する と BASIC が それ を 見 つけ て くれ る の で 容易 に 対処 で きる . 

これ ら の エラ ー に 対し て , 我々 パソ コン の プロ グラ ム を 作成 する 人 間 が , 対 
応 に 苦慮 する の は (4) の 論理 エラ ー で ある . 正しい と 思っ て 設計 し , また それ を 
コー ディ ング し た も の の 誤り で ある か ら , 容易 に その 発見 が な され な い . その 
た め の 対 応 と し て 2 節 の プロ グラ ム の モジ ュー ル 化 が あり , また 第 8 章 の デバ 
ッ グ 対策 が ある わけ で ある が , 本 節 で は 次 の こと だ け を 強調 し て お こう . 


完璧 な も の を ね ら わ ず , バグ の 発見 し や すい 論理 を 用 いよ う . 


且 計 軒 ュ ァ ル シ ステ ム 


我々 の プロ グラ ム に エラ ー が ある こと を 前 提 と する な ら , メー カ が 作成 
し た モニ タ (シス テム ・ プ ログ ラム ) に も 誤り が ある は ず で ある . また ハ 
ー ド ウェ ア に も ミス が ある こと も 考え られ る . 我々 が 誤り を 前 提 と し た シ 
ステ ム を 考え る 以上 当然 , 我々 の 作成 し た プロ グラ ム と と も に シス テム 
固有 の モニ タ に も 誤り が ある こと を 仮定 し た 対応 を 考え て お か ね ば な ら な 
い . 金融 機関 や 原子 妨 な ど で 用 いら れ て いる コン ピュ ー タ シス テム は 。 高 
い 信 頼 性 が 要求 きれ て いる た め に 。 通常 こ の ハー ド エ ラ ー や モニ タ エ ラ ー 
を も 考え に 入れ て , 複数 の コン ピュ ー タ を 同時 に 動か し て いる . こう する 
こと で 一 方 が 障害 を 起こ し て も 他方 が 動け る よう に する の で ある . この よ 
うに 並列 する こと で , 信頼 性 を 向上 し よう と し た シス テム を デュ アル ジス 
テム と いう . 
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の プロ グラ ム の 大 ぎ さ を 見 積 
る う 


設計 し た プロ グラ ム を 紙上 に コー ディ ング し , それ を 見 な が ら プ ログ ラム を 

キー イン し て いる 途上 。 も し く は 全部 キー イン し 終わ っ て RUN させ た と き , 
memory overflow 

と いう メッ セー ジ が 出力 され た と いう 話 は よく 聞か れる . せっ か く 

ディ ング し た プロ グラ ム を 再び 設計 変更 し 。 コー ディ ング し 直す と いう の は 大 

変 面倒 な 作業 で ある . し た が っ て 。 設 計 段 階 で その プロ グラ ム の 大 き さ を 予想 

し て お く こ と は 大 切 で ある . も し 予想 し た プロ グラ ム の 大 き さ が , 使っ て いる 

パソ コン の メモ リ 数 より 大 きけ れ ば , その 段階 で 設計 変更 が 可能 で ある . 

プロ グラ ム の 大 き さ を , 設計 段階 で 見 積 る の は 困難 で , 多分 に 経験 が も の を 
いう . すなわち , いま 作成 し て いる プロ グラ ム が 。 ど れ く らい の ステ ッ プ 数 ( 行 
番号 の 数 ) に な り , どれ くら い の 変 数 領域 が 必要 と な る か は , 正確 に は 通常 把 
所 で きる も の で は な い . ここ で は , も し その ステ ッ プ 数 や 変数 の 種類 が お お ぎ ざ 
っ ぱに つか め た と し た と き 。 こ の プロ グラ ム が どれ くら い の バ イト 数 を 必要 と 
する か の 計算 方 法 を 示 そ う . 

まず プロ グラ ム 領 域 に つい て 考え る . 予想 し た ステ ッ プ 数 を N ,1 ス テッ プ 

(1 行 番号 ) の 平均 の 命令 文字 長 を 7/ と する と , 

プロ グラ ム 額 域 語 WX(/ 二 5) 。 バイト 

括弧 内 の 十 5 に つい て は , あく まで 概数 で ある . この 数 値 を 1.000 で 割っ た 数 
値 が キロ バイ ト (KB) 数 と な る . 

次 に 数 値 変数 に つい て 考え て みよ う . 整数 形 変数 名 の 数 を Az 個 , 平均 の 変数 
名 の 文字 数 を な 個 と し , また 単 精度 お よび 倍 精度 の 変数 名 の 数 , その 文字 数 を 
各々 As, な , AZ, 万 と する と 。 

数 値 変数 領域 WVz (な 十 3) 十 Wsx( な な 十 5) 十 AZX(/7 十 9) 。 バイト 

文字 変数 に つい て は , 文字 変数 名 の 個数 を Ac 個 , その 変数 名 の 長 さ の 平均 を 
た , また 実際 に その 変数 に 納め られ る 文字 デー タ の 平均 の 長 さ を ケ と する と 
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文字 型 変数 領域 cx (な 二 ケ 十 5) 。 バイ ト 

以上 の よう に し て お お ま か に プロ グラ ム の 大 き さ を 予想 する こと が で きる . 
次 に 現 シ ステ ム に お いて , 我々 ユー ザ が どれ くら い の メ モリ を 使う こと が で き 
る の か を 調べ る 方 法 を 示 そ う . マニ ュ ア ル に 64KB と か 128KB と か の メモ リ 
の 大 き さ の 数 値 が 記さ れ て いる が , 実際 に は その マニ ュ ア ル の 数 値 よ り も か な 
り 小 さい メモ リ し か 。 我 々 は 使用 で き な い . 特に ディ スク を 多用 する シス テム 
は その こと が いえ る . し た が っ て , 現在 ビ れ くら い の メ モリ が あま っ て いる の 
か を 知る こと は 大 切 で ある . 

我々 が 使え る メモ リ の 大 き さ を 知る 手段 と し て , BASIC は 

FRE (k) 

と いう 関数 を 用 意 し て くれ て いる . ここ で k=0 で は 未 使用 変数 領域 の バイ ト 
数 を 関数 値 と し て と り , k=1 で は 未 使用 プロ グラ ム 領 域 の パイ ト 数 を 関数 値 と 
し て と る ( 注 。 こ の k の 値 に 対す る 機能 に つい て は 機種 に より 多少 異な る ). 

も し 見 積 っ た プロ グラ ム の 大 き さ が , この 関数 で 調べ た 値 よ り も 大 きけ れ ば 
当然 設計 変更 き し な く て は いけ な い . この 設計 変更 の 際 , な る べく な ら ば 既に 
作成 し た 設計 書 を 大 幅 に 変え た た く は な い . そこ で 次 の よう な 変更 を まず 考え , 
な る べく も と の 案 を 生か すべ きだ ろう . 
1) CHAIN 命令 を 用 いて プロ グラ ム を 分 割 す る . 
2) 使用 ずみ 資源 は すぐ に 返却 (ERASE,CLOSE 命令 な ど ) する . 
3) 変数 を 整理 し 。 ま た 整数 型 で すむ 変数 は その 宣言 を し て お く . 
4) デー タ 形 式 を 圧縮 し , ビッ ト 演 算 を させ る こと で 論理 を 変え ん ず に デ 
ー タ 領域 を 節約 する . 


( 
( 
( 
( 


プロ グラ ム の 大 き さ を 見 積 っ て コー ディ ング し よう . それ を サポ る と か えっ 
て 時 間 を 損する こと が ある . 
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デー タ の 性 貨 を 把握 し よう 


コン ピュ ー タ は , 我々 人 間 の 頭 の よう に 無限 桁 の 数 値 を 扱う こと は 不可 能 で 
ある . 扱う デー タ は , すべ て 有限 桁 の 数 値 と し て 表現 し 。 その 数 値 で 計算 を 実 
行 す る . た と えば 有名 な 例 と し て , 我々 は 1 を 3 等 分 し た 数 1/3 を 考え る こと 
が で きる が , コン ピュ ー タ は , それ を 近似 と し て し か 認識 で き な い . 


3 0.333333 





この よう に コン ピュ ー タ に 特有 な 限界 を し っ か り 認め て お か な いと 。 我々 の 
作る プロ グラ ム は 無 意 味 な も の に な っ て し まう . 
次 の プロ グラ ム を 考え よう . 


10O N=SO 
11O FOR K=1 TON 





120  CLS 

13O PRINT "社員 番号 =" ぉ K 

140 INPUT " 総 支払 額 = 

15O INPUT " 税 合 ="3TAX 

160 INPUT "社会 保険 ="』PENS 

170 PAY=S-TAX-PENS 

1BO 。 LPRINT "no=VsKir 支給 額 ="』PAY 
190 NEXT K 

200 END 


これ は 給料 の 総 支払 い 額 か ら 税金 。 社会 保険 料 を 引い た 額 を 計算 し 出力 する 
と いう 原始 的 な プロ グラ ム で ある 。. 現在 の 通常 の サラ リー マン に 対し て は この 
プロ グラ ム で 正常 に 動く . し か し , も し この 社員 の 中 に 高給 取り が いて , 7 桁 を 
超え た 額 が 支払 われ た と する と , プロ グラ ム は 誤っ た 結果 を 出力 する . た と え 
ば 社員 番号 20 番 の 人 の 給料 の 総 支 払 額 が 2.000.000 円 , 税金 が 500.000 円 , 社会 


7 スズ 


保険 料 が 199.999 円 だ っ た と する と, 当然 その 手当 額 (支給 額 ) は 1.300.001 円 と 
な る は ず で ある . これ を 実際 に 計算 させ る と 次 の よう に な る . 
NO=20 支給 額 =1.3E 二 06 

すなわち , 2 百 万 円 と いう 額 は パソ コン は 桁 数 が 大 きく て 覚え きれ な か っ た 
の で ある . 

上 例 は 非常 に 幼稚 な 例 で ある が , この よう な 誤り は 日 常 し ば し ば 起こ る こと 
で ある . すなわち 設計 の 段階 ざし っ か り と 入力 デー タ の 見 積 り を し な いた め に 
起こ る 誤り な の で ある . 上 例 が も し し っ か り し た 見 通し の も と に 設計 され , コ 
ー デ ィング され た な ら 次 の 宣言 文 が 第 1 行 に ある べき で ある . 

DEFDBL A 一 Z 

こう する こと で , 上 の 誤り は 回 避 で きる . すなわち 変数 を 倍 精度 に する の で 
ある . 

し か し , 常に 倍 精度 計算 で 解決 で きる と は 限ら な い 。 倍 精度 に する と デー タ 
の 納まる メモ リ 領 域 が 2 倍 と な り , また 計算 スピ ー ド も 遅く な っ て し まう . で 
きる こと な ら 単 精度 の 方 が よい の で ある . 

この よう に , ソ フト ウェ ア の 作成 に お いて 決ま っ た 手法 が ある わけ で は な く 。 
場合 に 応じ て 我々 は 対応 し て ゆか ね ば な ら な い . そし て , その 各々 に つい て 。 
デー タ の 性 格 を し っ か りつ か み 。 適格 な デー タ 形 式 を 選ん で いか ね ば な ら な い 
の で ある . 


設計 段階 で 入力 デー タ の 上 限 , 下限 , 精度 を し っ か り 調 べ よ う . 
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デー タ の 訂正 が し や す / 設 
計 を 


我々 が コン ピュ ー タ を 使う と き , キー 操作 の ミス は 日 常 茶 飯 事 で ある . し た 
が っ て 。 入力 ミス の た びに “し まっ た "と 思わ せる プロ グラ ム で は , 我々 は 大 
変 疲れ て し まう で あろ う . 誤っ て も 「 大 充 夫 , すぐ に 直せ る ! 」 と 思わ せる も 
の で な けれ ば な ら な い の で ある 。 すなわち デー タ 訂 正 の し や すい プロ グラ ム 
を 作成 せ ね ば な ら な い の で ある . 

デー タ 訂 正 の し か た と し て 次 の 三 段 階 が ある . 

(1) キー 操作 中 に ミス に 気づい た と き に 訂正 する . 
(2) キー 入力 が すべ て 終了 し た と き に 訂正 する . 
(3) プロ グラ ノム 実行 中 また は 実行 後に 訂正 する . 

この 三 つ の 段階 の 各々 に つい て , 訂正 を サポ ー ト で きる よう に し な く て は い 
け な い 。 

(1 の 段階 で は まず 入力 デー タ の チェ ッ ク を プロ グラ ム が 厳し く 行 うこ と が 
必要 で ある . そう すれ ば , プロ グラ ム の 責任 で エラ ー の 回 復 が で きる . また 次 
の 入出 力 例 に 示さ れ た よう な 方 法 も 有名 で ある . 





NO 804464 氏名 山田 太朗 
入社 年 月 日 50 年 4 月 1 日 

年 齢 30 

職種 コー ド A4 


OKy/n) ? 





これ は ある 会 社 の 社員 の デー タ と する . 一 人 の 区 切り が つい た と ころ で OK 
か どう か の チェ ッ ク を する の で ある . こう する こと で ,。 こ まめ に デー タ 訂 正 が 
で き , 利用 者 に 安心 感 を 与え られ る の で ある 。. 
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一 ーー 


(1) の 段階 で いく ら チ ェ ッ ク し て も 必ず エラ ー が 入り 込む . その た め の 対 応 と 
し て (2) の 段階 が ある . この た め の 準 備 と し て 全 入 力 デ ー タ の 一 覧 表 が 要求 され 
る . すなわち , 打ち 込ん だ デー タ が まとめ て 出力 され た も の で ある (44 節 参 
照 ). その 一 覧 表 と 元 本 と を つき 合わ せ て (2) の 段階 の チェ ッ ク が 行わ れ , そし て 
訂正 箇所 が 判明 する . そし て その 判明 し た 訂正 箇所 に つい て , 一 つ ひ と つか つ 
迅速 に 訂正 で きる ルー チン を 組む べき で ある . 

(1), (2 の 段階 を 経て も 、 どう し て も エラ ー が 潜み 込む せ も の で ある . それ は プ 
ログ ラム 実行 中 な いし は 実行 後に 判明 する . 我々 は この よう な 突発 的 な デー タ 
入力 エラ ー の 発見 に 対し て も , すぐ に 対応 で きる よう な エラ ー 処 理 を 考え て お 
か ね ば な ら な い . 

(2 (3) に つい て は ルー チン を 共用 で きる が , 経験 上 (2) の 訂正 は デー タ 入 力 順 
に 行え る こと が 便利 で あり (シー ケン シャ ル な 訂正 ),(3) に つい て は まっ た く ラ 
ンダ ム な 訂正 が で きる と 便利 で ある . これ を 図示 し た の が 下図 で ある . 











デー タ 証 正 
ルー チン 
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マニ ュ ア ル を 完備 し よう 


パソ コン と は , 本 来 個人 を 対象 に し た 計算 機 で あっ た が , 現代 に お いて は 広 
く 色 々 に 人 々 に 使用 され る . し た が っ て , ひと た びあ る プロ グラ ム が 人 々 の 利 
用 に 供 さ れ た な ら , た と え そ れ が パソ コン の プロ グラ ム で も 。 社会 の 財産 と な 
る . そし て , その プロ グラ ム に 対し て 責任 が と れる 体制 が 必要 に な っ て くる の 
で ある . 

プロ グラ ム に は , ほとん ど と いっ て 良い ほど パグ が ある . また プロ グラ ム に 
は 色々 な 要求 が つい て 回 る . すなわち 。 こう いう 機能 を つけ て 欲し い , 等 の 要 
求 で ある . パソ コン の 近く に プロ グラ ム 作 成 者 が いれ ば その 人 に た ず ね れ ば よ 
い が , 多く の 場合 プロ グラ ム は 使わ れ 続け て も 作成 者 は 転勤 等 で いな く な る . 
また , た と えい た と し て も 時 と と も に プロ グラ ム の 構造 を 忘れ て し まう の で あ 
る . バグ の 発生 , 機能 追加 の 要求 に 対し て 対応 が 困難 に な る の で ある . 

この よう な こと を 避け る た め に , プロ グラ ム 作 成 者 は 。 必 ず 作成 し た プロ グ 
ラム に つい て の マニ ュ ア ル を 作成 し て お か ね ば な ら な い . それ は 次 の 二 つ の 内 
容 を まとめ た も の で ある 。. 

(1) プロ グラ ム の 使い 方 の 解説 
(2) プロ グラ ム の 論理 構造 な どの 解説 

(1) は プロ グラ ム の 使い 方 を 説明 する も の で あり , 市 販 さ れ て いる ソフ ト に つ 
けら れ て いる の で 理解 され る で あろ う . (た だ し 市 販 さ れ て いる ソフ ト の マニ ュ 
アル は ほとん ど が 見 に くい . 我々 は 見 や すい も の を 作る べき で ある .)(2) は プロ 
グラ ム が どの よう な 論理 を も ち , どの よう な 構成 を な し て いる か を 示し た も の 
で ある . これ を し っ か り 記 述 し て お け ば , バグ の 発生 や 機能 追加 の 要求 に 対し 
て 第 三 者 が 容易 に 対応 で きる の で ある . 

この (2) の マニ ュ ア ル の 記述 法 に つい て は ,。 産業 界 や 学界 で 現在 と や か くい わ 
れ て いる も の で ある が , ここ で は パソ コン と いう 規模 の 小さ い レ ステ ム に つい 
て 何 を 書く べき か を 述べ よう . それ は 必ず 次 の こと が 含ま れる べき で ある . 

(の 各 モ ジュ ー ル 間 の イン タフ ェ ー ス が し っ か り 分 か る こと 
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ーー デー ニー ニー テテ 


) 入力 お よび 出力 の デー タ の 流れ が 追え る こと 
人 ⑦) 論理 が 概論 的 に も 詳 論 的 に も 追え る こと 
人 加 デー タ 構 造 が 明らか な こと 
この 4 点 が し っ か り 簡 潔 に 記述 され て いれ ば 十分 で あろ う . そし て , これ ら 
の 内 容 が し っ か り 記述 され た マニ ュ ア ル が 備え られ て 初め て , その プロ グラ ム 
は 社会 的 財産 に な る の で ある . 
ここ で , 一 つの 例 と し て (2) の マニ ュ ア ル に つい て の 章 だ て を 掲げ て みよ う . 
第 1 章 本 プロ グラ ム の 目的 お よび 概要 
第 2 章 モジ ュー ル 構 成 と それ ら の イン タフ ェ ー ス 
第 3 章 モジ ュー ル 各 論 
第 4 章 デー タ 構 造 
各 章 で は 図 , フロ ー チ ャ ー ト , ハイ ポチ ャ ー ト 等 を 用 いて , で きる 限り の 分 
か りや すさ を ね ら う べき で ある . 


マニ ュ ア ル の 完備 し て いな い プ ログ ラム は 社会 の 財産 に は な ら な い . 





要求 仕様 技術 


いか に 分 か りや すい プロ グラ ム を 書き 、。 い か に し っ か り し た マニ ュ ア ル 
を 作る か は , ソ フト ウェ ア が 肥大 化し た 今日 非常 に 重要 な 課題 で あり , 現 
実に も 学界 , 産業 界 で 盛ん に 論じ られ て いる . この よう な ソフ トウ ェ ア に 
つい て の 技術 を 要求 仕様 技術 な ど と 呼ん で いる . 
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第 2 章 





優れ た プロ グラ ム の 


コー ディ ング 技法 


BASIC は , 大 きく 二 つ の 特徴 を も っ た 言 
語 で ある . 一 つ は 英語 と 初等 数 学 に 大 変 近い 
表現 方 法 を と っ て いる こと で あり , も う 一 つ 
は 翻訳 に 時 間 を 浪費 する と いう こと で ある . 
この 二 つ の 性 質 を 意識 する と , 我々 が BASIC 
で プロ グラ ム を 記述 する と き 守 ら ね ば な ら な 
い 。 い くつ か の コー ディ ング 技法 が 生ま れ て 
くる . こ こ で は その 代表 的 な も の を 示 そ う . 








2 英語 の 文章 を 書 ぐ よう に 


次 の プロ グラ ム を 見 て みよ う . これ は 画面 中 央 (640X200 ド ッ ト ) に 座標 軸 
を 設定 し , その 原点 に 円 を 描く も の で ある 。. 


100 LINE (320。O) 一 (320 。 199) 
11O LINE (O。10O) 一 (639 。1OO) 
12O CIRCLE ( さ 2O。10O) 。10O 
1 さ 3O END 


出力 は 次 の よう に な る . 


Ne 


この プロ グラ ム は 数 値 が 多用 され て いて , いか に も “コン ピュ ー タ の 言葉 " 
の よう に 思わ れる が , し か し これ は BASIC が 高級 言語 で あり 人 間 の 言葉 (特に 
英語 ) に 近い と いう 特性 を 十分 に 生か し て いな い , と 批判 され る で あろ う . 320 
と か 100, 639 と は 一 体 何 な の だ 。 と いう 疑問 が この プロ グラ ム を 読む 人 の 心 に 
わい て くる . 

上 記 プ ログ ラム を 次 の プロ グラ ム と 比較 し て みよ う . 


100 0X= さ 20:s DY=10O= ′ origin=(OX 。DY) 
110 XMAX= さ 20= YMAX=100 

120 LINE (DX 。OY-YMAX) 一 (DX 。0Y+YNAX ) 
13O LINE (DX-XMAX ,DY) 一 (DX+XMAX 。Y ) 
14O RR=10O: ′ R=radius of circ1e 
15O_ CIRCLE (OX。DY) JR 

160 END 





この プロ グラ ム で は , まず 数 値 を イメ ー ジ の 伴う 変数 名 に 代入 し , そ の 変数 
名 で 以下 の 命令 を 記述 し て いる . この よう な , ちょ っ と し た 工夫 で プロ グラ ム 


2 ら 





ーーー- ーー ニー ーー ュー ニニ ーーー 


は 人 間 に 近 い 言 葉 と な っ て いく の で ある . 後者 の プロ グラ ム は , あたかも 英語 
を 読む よう に 解説 され て ゆく で あろ う . 
長い プロ グラ ム で は , この よう な 配慮 を し て いる と いな いと で は バグ の 発見 
の スピ ー ド が まっ た く 違 っ て くる . そし て , も し 前 者 の 例 の よう な プロ グラ ム 
の 記述 の し か た に 固執 する 人 が いる と し た ら , その 人 は BASIC を 用 い ず に 機 
械 語 で プロ グラ ミン グ す る こと を 勧め る . BASIC の 良さ は 「 人 間 に 近 い 言 語 で 
ある 」 と いう こと だ か ら で あ る . 
実際 に 我々 が 注意 する こと を まとめ て みよ う . 
(1) 変数 名 は で きる だ け 中 味 を 表現 する よう に . 
(⑫) 注釈 文 は 上 手 に 入れ る . 
(3) 長い 命令 は 書か な い . それ は 長い 文章 が 読み に くい の と 同じ で ある . 
(4) 多く の BASIC 命令 を 覚え , 分 か りや すい 命令 を 選択 する . 


プロ グラ ム は 人 間 の 言葉 に 近づく よう コー ディ ング し よう . 





コン ピュ ー タ を 利用 する と き , 我々 は コン ピュ ー タ に 作業 の 手順 を 示す 
命令 の 体系 を 与え ね ば な ら な い . これ を プロ グラ ム と 呼ん で いる . プログ 
ラム は 色々 な 言語 で 記述 され る . BASIC も その 一 つの 言語 で ある . この よ 
うに プロ グラ ム を コン ピュ ー タ の 解読 する 言語 で 実際 に 書く こと を コー デ 
ィング (coding) と いう . すなわち , 我々 の プロ グラ ム を コー ド 化 する の 
で ある . 
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BASIC 言語 は ,。 コン ピュ ー タ に 理解 され る 機械 語 の よう に 非 人 間 的 な も の 
で は な く , より 我々 の 理解 で きる 親しみ や すい 言語 と な る よう に 構成 され て い 
る . し た が っ て , 我々 が プロ グラ ム を 作成 する と き に , この BASIC 言語 の 良い 
点 を フル に 利用 し な けれ ば , BASIC 言語 を 用 いる メリ ッ ト が な く な っ て し ま 
う . 変数 名 を どの よう に する か 。 と いう こと も この 考え 方 に 従っ て 決定 され な 
く て は な ら な い 。 

ほとん どの パソ コン に 備わる BASIC は 。 変数 名 が か な り の 長 さ の 文字 数 に 
な る こと を 許し て いる . (も ちろ ん , 先頭 の 2 文字 し か 識別 で き な い , と いっ た 
制限 が つく 場合 が ある が ! ) 我々 は この 規約 の 主旨 を し っ か り と 理解 すべ き で 
あろ う . 

《 例 > 会 社 の 従業 員 の 給料 計算 を する プロ グラ ム を 考え よう . ここ で は 単純 
に 従業 員 番 号 (1 か ら 50 まで と する ) を 画面 に 出し その 支給 総額 と 税額 と を 
入力 し て , 差し 引き の 手取 り 額 を 計算 し , この 明細 書 を 作成 する と し よう . 
まず 次 の よう な プロ グラ ム を 考え て みよ う . 


100 "payment ca1Cu1ation 
110 FOR K=1 TO 5O 





12O CELS 

13O PRINT 

14O TINPUT 

150 INPUT 

160 

17O =A-B 

18O 

190 LPRINT "No シリ ラ セイ キン テト ドリ" 






200 LPRINT USING 
210 LPRINT USING 
220 LPRINT USING " 枯 半 提 提 
23O LPRTINT USBINE " 振 拓 大 析 補 折り ョ ビ 
240 NEXT K 

250 END 


参考 の た め に 一 人 の 従業 員 の 出力 結果 も 示し て お こう . 
22 


イメ ー ジ を 伴う 変数 名 を 





No シラ 7 が の セイ キン テト ドリ 
電 1753420 27534 1725890 





次 に , まっ た く 同 一 の 出力 を する , 変数 名 に 工夫 を 入れ た プロ グラ ム を 示 そ 
9 

100 *payment calculation 

110 FOR NO=1 TO 5O 





120 CLS 

130 PRINT "フウ = リョ NO 

140 INPUT jPAY 

150 INPUT "セー イキ フー = リョ TAX 

16O * 

17O TNCUME=PAY-TAX 

180 

19O LPRINT "No シリ ライ カ " ワ で "イキ フン テト "リッ 
200 LPRINT USINB " 替 社 "NOs 

210 LPRINT USINE " 震 提 振 拓 析 "PAYs 
220 LPRINT USING "電視 提 埋 幸 " TAX 
23O LPRINT USINE " 埋 入 循 拉 匠 "TNCDNME 
240 NEXT NO 

250 END 


この 二 つ の プロ グラ ム を 比較 すれ ば 分 か る よう に , 後者 の 方 が な は る か に 人 間 
の 言葉 に 近づい て いる . すなわち , 変数 名 を 見 れ ば すぐ に その 変数 の プロ グラ 
ム 中 の 役割 が 理解 され る の で ある . 特に プロ グラ ム が 長く な れ ば な る ほど , こ 
の 恩恵 を 大 きく こう むる こと に な る . 


変数 名 は , その 役割 り が すぐ 分 か る よう に 名 づけ よう . 
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段 づ ブ け を ぎ ち ん と 


次 の 左右 二 つ の プロ グラ ム は 。 配列 A (N) に 入っ て いる 数 値 の 和 S1 お よび 
2 乗 の 和 S2 を 求め る プロ グラ ム で ある . 





27O 51=O:S2=O 27O S1=O: S2=O 

28O FOR K=1 TO N 28O FOR TO N 

29O 81=S1+ 人 A(K) 290 S1=S1+A(K) 

さ OO 52=S2+A(K) *RQA(K) さ OO 52=S2+A(K) AA(K) 
さ 1O NEXT K さ 1O NEXT K 


一 目 見 た だ け で 右側 の プロ グラ ム の 方 が 見 や すい こと が よく 分 か る .、 この よ 
うに , BASIC 命令 の 文体 に ちょ っ と し た 工夫 を こら すこ と で , プロ グラ ム は そ 
の 明快 さき を 変え る の で ある . 

特に この 段 づけ 技法 は 。 FOR-NEXT 命令 の 入れ 子 構造 の と き に 真価 を 発 
揮 す る . いま , 配列 A (M,。 N) に 入っ て いる 数 値 の すべ て の 和 S を 求め る プ 
ログ ラム を , 上 例 の よう に 段 づ けし た も の と , し な いも の と に 分 け て 記載 し て 
みよ う . 





SBO S=O SB0 S=Q 

59O FOR K=1 TO N 59O FOR K=1 TO N 
6OO FOR J=1 TO NM 600 FOR J=1 TO NM 
610 5=S+A(K。 し )〉 61O =S+A(K。 し ) 
62O NEXT J 620 。 NEXT J 

63O_ NEXT K 6 さ O NEXT K 


FOR-NEXT の 中 に FOR-NEXT が ある プロ グラ ム は ,。 難解 に な る こと 
が 多い が , 段 づ けけ を し っ か りす る こと で 論理 が 非常 に 明快 に な っ て くる の で あ 
る . 

段 づ け は FOR-NEXT だ け に 応用 する も の で は な く , た と えば 次 の よう に 
TE 命令 の 中 で も 使え る . 

140 INPUT X 
15O0 IF X=1 THEN Y=XxX ELSE Y= ニ XXX+2wX+ さ 

これ は 入力 され た X の 値 が 1 なら Y に X? を , X キ 1 な ら XX? 十 2X 十 3 を 入れ 

る プロ グラ ム で ある が , これ を 次 の よう に 書い て みる と 明快 に な る . 
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14O INPUT X 
150 IF X=1 THEN Y=XX 
ELSE Y=X*X+2X+ さ 


また 次 の 例 の よう に ,。 TF 命令 で 論理 を 分 類 し た と き , その 分 類 さ れ た 論理 の 
まとまり を 表わす の に も 段 づ けが 用 いら れる . 


270 IF D<O THEN xIMABE 

280 X1=B+SQR (D) : X1 ま =STR ま (X172/A) 
29o X2=BーSHR (D) : X2$=STR$(X2/2/) 
さ 0O BOTO *INSATU 

さ 10 *IMABE 

さ 2o X1 ま =STR ま (B/2/Q)+" 
33Q X2*=STR 和 ま (B/2/Q)+" 
さ 40 *INSATU 

350 PRINT X1 ま = TF X1$ く >X2 ま も THEN PRINT X2$* 






"+STR$(SQR (一 D) /27 人 A) 
"+STR ま (SQR (一 D) /2/a) 


これ は 2 次 方 程 式 の 解 を 求め る プロ グラ ム で ある が , 行 番号 の ラベ ル を 区 切 
り と し て 一 つの 論理 的 な まとまり を 段 づ け す る と , 非常 に 見 や すく な る こと を 
理解 し て も らい た い . 

以上 の 三 つ の 例 で 段 づ け を 説明 し た が , この よう な 簡明 な 工夫 で プロ グラ ム 
が 生き 生き し て くる こと に 我々 は 気 を つけ る べき で あろ う . 


段 づ け な ど を 利用 し て 論理 を みや すく 整然 と / 





フリ ー フ ォ ー マ ッ ト 





昔 の FORTRAN な ど は , この 節 の 段 づ け を 許さ な か っ た . し か し , 近年 
の 高級 コン ピュ ー タ 言語 は 1 行 中 に どの よう に 命令 を 書い て も それ を 許 
し て くれ る . この 特徴 を フリ ー マ ッ ト と 呼ぶ こと が ある . 








2 フ 


行 番号 は 1000 番 か ら 


最初 に 次 の プロ グラ ム を 眺め て 見 よう これ は DATA 文中 に ある デー タ の 
平均 と 標準 偏差 と を 求め る も の で ある . 


1O N=10sDIM A(N) 
20 FOR K=1 TO N 

3O READ AK(K) 

40 NEXT K 

5O DATA 10,6。 日 。 さ 』7。4。1。4。6。9 
ao ・ 

70 S1=Os S2=O 

BO FOR K=1 TON 

90 8B1=S1+A(K) 

100 8S2=S2+A(K) *A(K) 


110 NEXT K 
120 NM=S17/N: り =SQR (S2/N-NMxM) 
13O PRINT "m="sMa" vs=msV 
14O END 


プロ グラ ム の 行 番号 は 、 この 例 の よう に 10 お き に と る の が 普通 で ある . も ち 
ろ ん こ の 間隔 の 値 は , 次 の RENUM 命令 の 第 3 パラメータ で 容易 に 変更 が 可 
能 で ある . 

RENUM N1, N2, S 

この S の 値 に 間隔 と し て と り た い 値 を 代入 すれ ば よい 。 通常 間隔 を 10 に と 
る の は , 追加 ・ 訂 正 の し や すさ と 見 や すさ が 理由 で ある . 

ここ で 再び 上 記 プ ログ ラム を 眺め て 気がつく の は , 行 番号 90 か ら 行 番号 100 
に ゆく と ころ で , プロ グラ ム 作 成 者 と し て は 不 本 意 な 段差 が 生じ る と いう こと 
で ある . この こと は ,。 文 番 号 が 990 か ら 1000 に いく と き , お よび 9990 か ら 
10000 に いく と き に も 起こ る こと で ある . この よう な 不 本 意 な 段差 が 。FOR 
て NEXT な ど で き れい に 段 づ けし て いる と ころ で 発生 する と, せっかく の 見 や 
すさ に 傷 が つい て し まう . 

我々 は 通常 行 番号 を 1000 か ら 始め る . 短い プ ログ ラム な ら 100 か ら 始め て も 
よい . 長い プロ グラ ム な ら 当然 10000 か ら 始め て も よい . し か し , あま り 行 番 
号 の 桁 が 大 きい と , 見 に くく な る こと は 避け られ な い . 通常 の BASIC で 記述 さ 
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れる プロ グラ ム で は , だ いた い 1000 番 か ら 始 め る と 不都合 が な い の で ある . 
本 節 の プロ グラ ム は 短い の で 。, 行 番号 を 100 か ら と る こと に する . この た め 
に は , 次 の 命令 を 実行 すれ ば よい . 
RENUM 100, 10, 10 
その 実行 結果 を 表示 し て みよ う . ずい 分 と プロ グラ ム ・ リ スト が 引き 締まっ 
て 見 える こと に 注意 し て も らい た い . 


10O N=1O:DIN AN) 
110 FOR K=1 TO N 

12O READ Aa(K〉 

13O NEXT K 

140 DATA 10。6。 日 。 ミ 』7。4。1。4。6 の 
15O ・ 

160 S1=0s 52=O 

170 FOR K=1 TO N 

1BO 8S1=S1+A(K) 

190 82=S2+A(K) *A(K) 


200 NEXT K 

210 M=S1/N: り =SQR (52/N-M*M) 
220 PRINT "m="sNs" va="sV 
23O END 


また , モジ ュー ル の 先頭 と な る 番号 は 区 切り の よい 行 番号 に し て お く こ と を 
すす め る . こう する こと で , 一 目 で 処理 の 区 切り を 理解 で きる の で ある . 


行 番号 の 工夫 だ け で , プロ グラ ム は ずい 分 と 明快 に な る . 





斉史 が 足り な いと き 


行 番号 の 最大 値 は 。 約 65.000(2 バイ ト で 表 わ せ る 最大 数 ) で ある . 10 行 
間隔 で 番号 を つけ る と 。6.500 ステ ッ プ 以上 の プロ グラ ム は 作れ な いこ と に 
な る . し か し , それ を 心配 する 必要 は な い . 大 き な プ ログ ラム は , 分 割 し 
それ を CHAIN 命令 で 結合 する の が 常識 だ か ら で あ る 。. 
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GOTO を な ぐ そ ぞう 


プロ グラ ミン グ 技 法 の 最も 有名 な も の の 一 つ に 「GOTO を な くせ 」 と いう も 
の が ある . 次 の プロ グラ ム 例 を 見 て みよ う . 


2 フ 7O 8=O: N=1 

28O IF N>10O THEN さ 20 
29O =S+N 

さ OO N=N+1 

さき 1O GOTO 280 

さき 2O 


これ は 1 か ら 100 まで の 自然 数 の 和 を 求め て いる . これ を FOR 一 NEXT 命 
令 で 書き 換え る と 次 の よう に な る . 


27O 8S=O 

280 FOR K=1 TO 10Q 
290 5=5S+ に K 

さ oO_ NEXT K 


これ は 極端 な 例 で は ある が , GOTO 命令 を 用 いな い プ ログ ラム が いか に 簡潔 
に な り 見 や すく な る か を 良く 示し て いる . 

我々 は , 文章 を 1 行 1 行 読 せ よう な 考え 方 に 慣れ 親しん で いる た め , プロ グ 
ラム を 追う と き 論理 が ジャ ンプ する よう な 発想 に な じ め な い の で ある . その た 
めか , 多く の バグ が GOTO 命令 の 回 り に 発生 する と いわ れ て いる . また GOTO 
命令 の た め に , 修正 が し に くい こと が し ば し ば ある と も いわ れる . 

GOTO 命令 を な くす 代表 的 な 方 法 と し て , 上 記 の よう に FOR 一 NEXT 命令 
で の 代用 が ある . また パソ コン の 上 位 機種 に は , WHILE-WEND と いう 命令 
が 備え そら れ て いる . 次 の 例 を 見 て みよ う . 


100 S=0:N=O 

110 IF S>10O THEN 15O 
120 N=N+1 

13O =S+N*N 

14O B ロ TO 110 

15O PRINT N 

16O END 


これ は 自然 数 の 2 乗 の 和 
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キオ の ます …ー 十 N* 
で , その 和 が 初め て 100 を 越え る N を 求め る プロ グラ ム で ある . これ は 
WHILE-WEND を 用 いて 次 の よう に 書き 換え られ る . 
100 8=O:iN=O 
110 MHILE S く =10O 
12o N=N+1 
13O 5=S+N*N 
140 MEND 
15O PRINT N 
160 END 
この WHILE-ーWEND も 上 手 に 用 いる と , プロ グラ ム を 非常 に 分 か りや す 
くし て くれ る も の で ある . 
その 他 。GOTO 文 を 減ら す 手法 と し て 
ON K GOTO N1. N2, …… 


と いう 命令 を 用 いる と か , 条件 の テー プル 化 (18 節 参照 ) な ど が 有名 で ある 。. 


GOTO 命令 を な る べく 用 いな いよ う 工 夫 し よう . 








初心 者 の プロ グラ ム に し ば し ば 見 られ る の が ,。 次 の よう な コー ディ ング 
で ある . 

250 IF S>0, THEN X=A: GOTO 270 

260 IF S<=0 THEN X=B 

270 * 
これ は 明らか に 次 の 1 行 に まとめ る べき で ある . 

250 X=A:IF S<=0 THEN X=B 
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注釈 文 は 丁寧 に 


で ある BASIC に よる プロ グラ ミン グ は , その 命令 体系 自体 英語 に 
近く , 人 間 に 近 い 表 現 と な る . し か し , いく ら BASIC が 人 間 に 近 い 言 語 で ある 
か ら と いっ て も , や は り そ こ に は 限界 が ある . 我々 は その 限界 を で きる か ぎり 
小さ くす べき で ある が , その 手段 の 一 つと し て 注釈 文 の 挿入 と いう も の が ある . 
注釈 文 と は 。 REM また は ' (アポ ロス トロ フィ ) で 始ま る 文 で ある が , これ 
は プロ グラ ム の 実行 に は 関係 せ ず , プロ グラ ム 内 に 注釈 を つけ る 目的 に の み 利 
用 され る . 次 の 例 を 見 よう . 





270 GOSUB 700 270 GOSUB 700 
700 LPRINT A 700 "ケイ サン ケッ カ ノ イン サ ツ 
710 LPRINT B 710 LPRINT A 


720 LPRINT B 
850 RETURN : 
860 RETURN 
右側 は 左側 の プロ グラ ム で サブ ルー チン の 先頭 番号 を 注釈 文 に し 。 そ の サブ 
ルー チン の 内 容 を 表示 し た も の で ある . こう する こと で , 我々 プロ グラ ム を 読 
む お 者 は 安心 し て サブ ルー チン の 内 容 を 解読 し に か か れる の で ある . 
この よう に , 注釈 文 は プロ グラ ム を 読み や すく し て くれ る 。 したがって, こ 
れ を 丁寧 に プロ グラ ム 内 に 挿入 し て いく べき で ある が , し か し 冗長 な 注釈 を 多 
く 入 れる こと は , か えっ て プロ グラ ム を 見 に くく し て し まう . 簡潔 で 要領 の 得 
た 注釈 を 施す べき で ある . 


プロ グラ ム に は 他人 が 読ん で も 分 か る よう な きち ん と し た 注釈 文 を 入れ よう . 
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9 1 行 1 語 令 が 原則 


BASIC で は 同一 文 番 号 中 に コロ ン : を 区 切り 文字 と し て , 複数 の 命令 を 記 
述 す る こと を 許し て いる . 
< 例 1> 170 S2=0: FORK=2 TO 5 : S2=S2 十 A(K) * A(K) : NEXT K 
後述 (85 節 を 参照 ) する 通り , この 記法 は それ な り の メリ ッ ト が ある の で 一 
概 に 非難 する こと は で き な い が , 原則 と し て は 避け る べき で あろ う . 
< 例 1> に つい て は , 通常 次 の よう に 記す べき で ある . 
17O S2=Q 
18O FOR K=2 TO 5 


19O 52=S2+A(K) xA(K) 
200 NEXT K 


その 理由 の 一 つ は , マル チ ス テー トメ ント ( 例 1 の よう な 記法 を いう ) を 多 
用 する と プロ グラ ム が 横 に 長く な り , 論理 の 流れ が 見 え を に くく な る こと で ある . 
また も う 一 つの 理由 は 追加 ・ 訂 正 が し に くく な る こと で ある . し た が っ て ,。 こ 
の 二 つ の 理由 を 承知 の 上 で マル チ ス テー トメ ント を 用 いる こと は 。 い っ こう に 
さしつかえ な いで あろ う . 例 と し て 次 の コー ディ ング を 見 よう . 

< 例 2> 

17O S2=Os K1=2: に K2=5 
18O FUR K=K1 TO K2 


19O S2=S2+Q(K) * 人 A(K) 
200 NEXT K 


この 例 2 の 行 番号 170 は 初期 値 の 設定 で ある か ら , か えっ て マル チ ス テー ト 
メン ト を 用 いた 方 が 見 や すく な る . 

プロ グラ ミン グ も 語学 と 同じ で , 例外 の な い 原 則 と いう も の は な い 。 し た が 
っ て 我々 は 時 と 場合 に よっ て 原則 を 使い 分 ける こと が 大 切 で ある . し か し , そ 
れ は 原則 を 意識 し た 上 で な され る べき で ある . マル チ ス テー トメ ント も その 原 
則 を し っ か り と 認め た 上 で 使用 し て も らい た い . 





横 に ダラ ダラ と 長い コー ディ ング を し て は な ら な い . 
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コン パイ ラ の コー ディ ング 
技法 は 通用 し な / う 


FORTRAN な どの コン パイ ラ 言 語 に 慣れ 親しん だ 人 は , つい BASIC で も コ 
ン パ イラ 言語 で 用 いた 技法 が その まま 通用 する も の と 思い 込ん で , その 技法 を 
使っ て し まう . し か し , BASIC と いう イン タプ リタ 言語 と コン パイ ラ 言 語 は 。 
基本 的 に 異な り ,。 し た が っ て コン パイ ラ 言 語 で 通用 し た こと が BASIC で は 通 
用 し な いこ と が ある . ここ で は その 有名 な も の を いく つか 示し て みよ う . 

(1) “簡単 な 関数 は 呼び 出す な " は 本 当 か ? 

FORTRAN な ど に 慣れ た 人 は BASIC 命令 

200 X=ABS (A) 
を 次 の よう に 書い て し まう . 
200 X=A :IFA<0 THEN X ニ ーA 

この 二 つ の 表現 は 同じ だ が , コン パイ ラ 言 語 で は 下 の 命令 の 方 が 計算 スピ ー 
ド が 速い しかし, BASIC プロ グラ ム に お いて は , 上 の 命令 の 方 が 速い の で あ 
る . それ は BASIC は 翻訳 に 手間 どる か ら 実 行 時 間 の 節約 より も 翻訳 時 間 の 節 
約 の 方 が 大 切 だ か ら で あ る 

同じ こと が , 簡単 な 指数 計算 に つい て も いえ る . コン パイ ラ に 人 慣れ た 人 は 。 
次 の BASIC 命令 

500 Y=X^3 
を 次 の よう に 書い て し まう . 
500 Y= ニ X*X* ネ X 
し か し , 上 と 同じ 理由 で 上 の 命令 の 方 が BASIC 言語 に 適し て いる . 
(2) 2 *A か A+A か 
FORTRAN に 慣れ た 人 は BASIC 命 
700 S=2*A 
を 次 の よう に 書く 場合 が ある . 
700 S=A+A 
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これ は コン パイ ラ 言 語 で は 「 乗 法 よ り 加 法 を 用 いよ 」 と いう コー ディ ング 技 
法 が ある か ら で あ る . すなわち , CPU の 処理 速度 は 乗法 より 加法 の 方 が 速い の 
で ある . それ な ら 当 然 BASIC で も この こと は いえ る こと に な る . し か し , 前 に 
も 述べ た よう に BASIC は 翻訳 が 処理 時 間 の 中 で 大 き な ウ エイ ト を 占め て お り 。 
その 中 で “* か 十 " と いう 議論 は 色あせ て し まう . すなわち コン パイ ラ は 翻訳 
さえ 終わ れ ば , 後 は その 翻訳 され た 実行 プロ グラ ム の 実行 時 間 だ けが 問題 に な 
り , 必然 的 に * 計 算 よ り も 十 計算 の 方 が 速い 。 と いう こと は 大 切 に な る . これ 
に 対し て , BASIC は 一 つ ひ と つの BASIC 命令 を 常に 解読 (翻訳 ) し な が ら 実 
行 し て いる . 当然 解読 の 方 が 命令 実行 より も は る か に 時 間 が か か っ て し まう . 
この と き , “ 十 か *" は 意味 の な い 議論 と な っ て し まう . BASIC で は 以上 の こ 
と か ら , 細か な 実行 速度 の 大 小 の 議論 より も プロ グラ ム の 見 や すさ の 方 に 重点 
を 置い た コー ディ ング を し た 方 が 良い こと に な る . 

以上 二 つ の 例 か ら 分 か る よう に , コン パイ ラ 言 語 と イン タプ リタ 言語 と で は 
その 翻訳 の し か た の 違い か らく る 性 格 の た め 。 色々 と 違っ た 計算 技法 が 対応 す 
る . この 性 格 の 違い を し っ か り 見 抜い て お か な いと , まっ た く 無 意味 な 計算 技 
法 を 振り 回 し て プロ グラ ム を 見 に くく し , 無用 な 類 雑 さき を 招 く こ と に な っ て し 
まう 。 


BASIC 言語 の 特徴 を し っ か りつ か ん で コー ディ ング し よう . 








BASIC の コー ディ ング 技法 の 基本 


この 節 で 示し た よう に , と に か く BASIC は 翻訳 に 手間 どる . し た が っ 
て , BASIC プロ グラ ム の 処理 効率 を 上 げ る 一 つの 大 き な 原 則 は BASIC 命 
令 の 数 を 少な くす る こと で ある . その た め に 。 BASIC は 多彩 な 命令 を 用 意 
し て くれ て いる の で , それ ら を 上 手 に 使い こなし て ゆく べき で ある . 
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次 の プロ グラ ム を 見 て みよ う . 


さ OO IF K=1 THEN =10Q 
さ 10 ITF K=2 THEN = さ OO 
さ 20 1IF K= さ THEN 5=15O 


この よう な 記述 の し か た は 見 や すい よう だ が どう も 美しく な いし , 効率 が 悪 
い . これ は 次 の よう に 書く べき で ある . 


き O00 (1)=100: (2) = さ OO A( さ ) =150 
さ 10 S=A(K) 


こう する こと で 処理 速度 は 向上 し , 修 正 等 も 楽に 行え を る. そし て プロ グラ ム 
自体 引き 締まる . 

この よう に , 条件 が 重なる と き , 配列 を 用 いる と 上 手 に それ ら を まとめ る こ 
と が で きる 場合 が 多い こと は 銘 記し て お くべ き で ある . 

また 次 の 例 を 見 て みよ う . 


40O IF D<O THEN 45O 

410 IF D=O THEN 490 

420 X1= ニ (一 B+SQR(D) ) /2/Qs X フ =( 一 B-SQR (D) ) /2/ 人 
43O_PRINT X1。X2 

440 GOTO SOQO 

450 1$ ま =STR 和 を (一 B/ フ /Q) : 52 ま = ニ STR ま (SRR (一 D) /2/ ひ の ) 
460 X1 和 =1 も リキ リオ ロフ ま = X メ つま = ニ 1 ま キ リー リオ つま 

470 PRINT X1 和 も 。X2 ま 

48O GODTO 5oO 

490 PRINT 一 B/27 

Soo 『 


これ は 2 次 方 程 式 zx* 十 克 十 c ニ 0 の 解 を 求め る プロ グラ ム で ある が , IF 命令 
と GOTO 命令 と が 入り 乱れ て 難解 で ある . これ は 次 の よう に すべ き で あろ う . 
400 ON SBN(D〉 THEN 440。48O 
410 。 *pD>O 
420  X1=(B+SQR(D) ) /2/Qs X2 ま =(BーSQR (D) ) /2/a 
43O PRINT X1。X2:GOTO 5OO 


44O * D<O 
45o 1$=STR ま (一 B/2/^A) : 52 ま =5TR ま (SQR (一 D) /27) 
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抄 件 文 の 乱立 は 避け よう 


460  。 X1$=1$+" キ リャ ラフ ま = X つ ま =1 ま リー リキ 2 
470 PRINT X1 ま 。X2 ま =GUTO 5OO 


48O * D=Q 
490 PRINT -B/2/ 谷 
Soo 3 


すなわち 。 分 岐 す る と ころ を 1 箇所 に 集中 する こと で プロ グラ ム を 読む 人 の 
理解 を 助け る こと が で きる の で ある . この ON て GOTO 命令 に 似 た も の と し て 
ON~GOSUB 命令 が ある が , これ ら の 語 令 を 用 いる こと で 多く の IF 命令 が プ 
ログ ラム 中 に 乱立 し な いよ う 注 意 す べき で ある . 


た くさ ん の IF 命令 が ある と 頭 が 混乱 する . し っ か り と 条件 を 整理 し よう 





| wem | ON て GOTO 命令 の 使用 上 の 注意 


ON K GOTO _N1.N2, N3,。……,。 Nm 

に お いて ,K が 1 か ら m の 間 の 自然 数 を と る と き に 。N1。N2。…… で 示 
され た 行 番号 に 分 岐 す る の が , この 表題 の 命令 で ある が , KK が 0 も し く は 
m より 大 きい 値 の と き に は , この 命令 は 何 ち し な い (K く 0 の と き は エラ ー 
と な る ). し た が っ て 万 一 プロ グラ ム に バグ が あり , K=0 と か K>m の 値 
を と る と , この 部 分 は その まま 正常 に 実行 され 、 バ パグ が な か な か 見 つけ ら 
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イメ ー ジ を 伴う 数 値 を 用 / う 
よう 


640X200 ドッ ト の グラ フィ ッ ク 画 面 に 関数 y ニ ** の グラ フ を 描い て みよ う . 


10 DEF FNF(X)=XwX 

20 FOR X=-10 TO 10 STEP .1 

3O 。Y=FNF(X) 

40 。 XG= さ 20+20*X= YB=100-1OxY 
So TF YG<O OR YG>199 THEN 7Q 
60 PSET (XB。YG)〉 

70 NEXT X 

BO END 


この 行 番号 50 に お いて 199 と いう 数 値 が 現われ て いる . これ は ,640X200 ド 
ッ ト の 画面 で は 次 の よう に 番地 が つけ られ て いる か ら で あ る . 
横 方 向 に 0639 
縦 方 向 に 0199 
この 縦 番地 の 限界 を チェ ッ ク し た の が 行 番号 50 な の で ある . こ の ステ ッ プ で 
199 と いう 数 を 用 いた 理由 は 理解 され る が , や は り 我々 は 次 の よう に 記述 すべ 
きだ ろう . 
50 IF YG<0 OR YG>=200 THEN 70 
プロ グラ ム を 読む 人 は 200 と いう 数 値 で 画面 の 上 限 チ ェ ッ ク し て いる こと を 
理解 で きる の で ある . 似 た 例 と し て 次 の よう な も の が ある . 


10 MIDTH Bo,2O 
20 INPUT "xy=" XY 

さ O IF X<O OR X>79 THEN 2O 
40 IF Y<O OR Y>19 THEN 20 
5O LOCATE X。Y:PRINT "ar 
0 END 


これ は 入力 され た X, Y の 値 を 座標 と する テキ スト 画面 上 の 場所 に A と いう 
文字 を 表示 する プロ グラ ム で ある 。. 行 番号 30. 40 は や は り 次 の よう に すべ き で 
あろ う . 


さ 3O IF X く O OR X>=BO THEN 20 
40 IF Y<O OR Y>=2O THEN 20 
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こう する こと で 行 番号 10 の WIDTH の パラ メー タ 値 と 対応 を と る こと が で 
きる . も う 一 つの 例 を 示 そ う . 
1O INPUT "code="j ビ 
20O IF C<O OR C>255 THEN 1O 
さ O じ ま =CHR も ( ビ ) 
4O PRINT C* 
SO END 
これ は , 入力 され た 値 C を コー ド と し て も 文字 を 出力 する プロ グラ ム で あ 
る が この 行 番号 20 の 255 と いう 値 も 異様 な 感 を 与え る . 入力 され た コー ド 値 
が , 0 と 255 の 間 に 入っ て いな けれ ば な ら な いこ と を チェ ッ ク し て いる わけ で 
ある が , この 行 番号 20 は 。 次 の どちら か に すべ き で ある . 
20 IF C<0 OR C>=256 THEN 10 
20 IF C<0 OR C>&HFF THEN 10 
こう する こと で , 入力 され た C の 値 が 16 進 2 桁 ( す な わ ち 1 バイ ト ) に 納 ま 
っ て いる か を チェ ッ ク し て いる の だ な 。 と すぐ に 理解 で きる の で ある . 


プロ グラ ム に 記述 する 数 値 は イメ ー ジ が 伴う 値 を 採用 し よう . 





長い 命令 へ の 対応 





CIRCLE 命令 な ど ば は オペ ラン ド 部 の パラ メー タ が 多く 1 行 に 一 つの 命 
令 が 納 ま ら な いこ と が ある . 
( 例 ) 700 CIRCLE (CENTERX, CENTERY),RADIUS, COLOR1, RAD1, 


RAD2, RATIO,F 
この よう な と き に は 下 の コ ー デ ィング ダグ 例 の よう に 分 か りや すさ の 心配 り 
が 必要 で あろ う . 
700 CIRCLE (CENTERX, CENTERY), RADIUS, COLOR1, RAD1., 


RAD2, RATIO,F 
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2 定数 に も 変数 名 を 


640X200 ドッ ト の ディ スプ レイ 画面 に , 下記 の よう な 円 グラ フ を 表示 する プ 
ログ ラム を 考え て みよ う . (この CIRCLE 命令 の 使い 方 に つい て は 65 節 参照 ) 


これ に つい て は 次 の よう な プロ グラ ミン グ が 可能 で ある . 


10O CLS 2 

110 P= さ . 14159: TO=5xP/2 

120 FOR K=1 TO 5 

1SO READ MsDT=2xPxM/10O 

14O  T1=TOsIF TO>2xP THEN 1=TO-2*P 
15O 。 CIRCLE (320。100) 。100。。-TO。ー(TO-DT) 
1eO To=To-DT 

17O NEXT K 

1BO DATA SO。25。20。15。1O 

19O END 


し か し , プロ グラ ム を この よう に 定数 を 用 いて 記述 する と 後 で 大 変 で ある . 
と いう の は , これ を 修正 し よう と する と き , プロ グラ ム 全 体 に わた っ て 再 校正 
せ ね ば な ら な く な る か ら で あ る . この プロ グラ ム は 画面 中 央 に 円 グラ フ の 中 心 
を と り , 半径 を 100 ド ッ ト に し た が , も し これ を 画面 の 右側 に よせ も う 少 し 小 
さき な 円 に し た い , な ど と 思っ た と き 修 正 は いち いち プロ グラ ム の 中 味 に まで 及 
ん で し まう 。 この 例 は 短い プロ グラ ム で ある か ら 修正 は 容易 だ が , も っ と 大 き 
く 複雑 な も の で は , その 修正 が 容易 で な いこ と は 想像 で きる で あろ う . 
定数 を 用 いた プロ グラ ム の 修正 の 困難 さ に 対処 する 手段 と し て , それ ら の 定 
数 に 変数 名 を 割り 振る 方 法 が あげ られ る . 上 記 プ ログ ラム は 次 の よう に コー デ 
ィング すべ き な の で ある . 


20 


10O CLS 2 

110 N=5:P= さ - 14159: TO=5xP/ フ 

120 CX= さ 20: CY=100sR=10O 

13O FOR K=1 TON 

140 。 READ M:DT=2xPxM/10O 

15O 。T1=TO:IF TO>2*P THEN 1=TO-2xP 
160 CIRCLE (CX。CY) 。R。。-TO。-(TO-DT) 
170 To=TO-DT 

18O NEXT K 

190 DATA 30,25。20」15。10 

200 END 


こう する こと で , プ ログ ラム の 先頭 行 に 定義 され て いる 変数 CX,CY,R の 
値 を 変え ん る だ け で , プロ グラ ム の 修正 は 完了 する の で ある . 長い プロ グラ ム で 
あれ ば , この よう な 手法 を と ら な い 限り 。 プロ グラ ム の 修正 は その プロ グラ ム 
の 長 さ に 比例 し た 時 間 と 手間 ひま を 要する こと に な る . 

定数 に 変数 を 割り 振る 方 法 の メリ ッ ト と し て , この 節 の 論拠 以外 に も 10 節 で 
述べ た よう に プロ グラ ム の 見 や すさ と いう こと が あげ られ る . また BASIC の 
構造 上 , 一 般 的 に 計算 スピ ー ド が 速く な る と いう こと も メリ ッ ト の 一 つ に 数 え 
上 げ て 良い で あろ う . 


実数 を 直接 プロ グラ ム 中 に 入れ る と 変更 が 大 変 に な る こと を 覚悟 し よう . 








定数 へ の 変数 名 の つけ 方 
定数 に 割り 振る 変数 名 は 当然 その 定数 を 印象 づけ る も の で ある べき で あ 
る た と えば 
円 の 中 心 (CX,CY) (Center of X(Y) co-ordinate) 
半径 R (Radius) 
円 周 率 PALP 
この よう な 努力 を し な いと 変数 名 を 覚え る だ け で 一 苦労 と な る . 
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2 10 進 か 16 進 か 


我々 の 日 常 生 活 に お いて は 。16 進数 を 扱う こと は な い . し た が っ て ,。 プ ログ 
ラム を 記述 する とき, で きる こと な ら 16 進数 を 表面 に 出す べき で は な い . し か 
し , コン ピュ ー タ の 内 部 で 2 進 法 の 計算 が 実行 され て いる 以上 , その 親戚 で あ 
る 16 進数 で プロ グラ ム を 記述 し た 方 が , か えっ て 分 か りや すい と いう こと が よ 
く あ る . 
た と えば 画面 消去 の 命令 
PRINT CHRS$(12) 
と いう よう に 書く より も 。 
PRINT CHRS(&HOC) 
と 書い た 方 が よい 場合 が 多い . (も ちろ ん , 多く の パソ コン で は この 命令 は CLS 
と いう よう に 。 制御 コー ド を 記述 し な いで すむ よう に し て いる . ) その 理由 は 。 
この よう な 制御 コー ド を まとめ た 表 は , ほ と ん どの 場合 16 進数 で 示さ れ て いる 
か ら で あ る . 
同じ 理由 か ら 文 字 コ ユー ド も 16 進 で 扱う 方 が 分 か りや すい . 次 の コー ディ ング 
は 文字 変数 S$ に 入っ て いる 一 つの 小文字 の アル ファ ベッ ト を 大 文字 に 直し , 文 
字 変 数 C5 に 入れ る も の で ある . 
270 SASC(S$) 
280 C$=CHRS$(S 一 32) 
アス キー コー ド で は 小文字 の コー ド か ら 32 を 引く と 大 文字 の コー ド に な る 
と いう 規約 を 用 いた も の で ある . し か し コー ド 表 を 見 る と き 32 と いう 値 は 一 度 
16 進 の 
&H20 
に 直し て お か な いと , 我々 は 確認 する こと が で き な い の で ある . し た が っ て , 
次 の よう に コー ディ ング し た 方 が 親切 で ある . 
270 S=ASC(S$) 
280 C$=CHR$(S 一 &H20) 
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また , 我々 は し ば し ば 整数 型 変数 に 割り 振ら れ た 2 バイ ト の 数 値 表現 領域 の 
各 ビ ピット に 意味 を も た せる こと が 多い .。 それ は パソ コン の メモ リ 容 量 が 小さ い 
た め に メモ リ を 節約 する た め に する の で ある (85 節 参照 この と き , た と えば 
整数 型 変数 X の 第 8 ビッ ト が ON (すなわち 1) か どう か を 調べ る と き に , 次 の 
よう な 10 進 表 現 を 用 いる と 非常 に 分 か り に くく な る . 

IF X AND 128=1 THEN_ 

128 と は 一 体 何 か 。 と 頭 を か し げ て し まう . や は り 次 の よう に 16 進 で 記述 し 
な けれ ば な ら な い .。 

IF X AND &H80=1 THEN 

MSX パソ コン の よう に 2 進数 を 表現 で きる パソ コン で は , も っ と 丁寧 に 次 
の よう に 書く べき で ある . 

IF X AND &B10000000=1 THEN 

以上 の よう に , メモ リ と か 制御 コー ド と か いっ た ハー ドウ ェ ア に 近い デー タ 
表現 を する と き に は , 計算 の し や すい 16 進数 (ある い は 2 進数 ) を 用 いる べき 
で ある . 





記 'rw 


16 進数 を Huvwx は 次 の よう に 10 進数 N に 変換 で きる . 
N=ux16* 二 vYX16? 十 wX16Tx 

ここ で uv。w, x は 0^F (10 進 で 0~-15) まで の 数 で ある . 

コン ピュ ー タ の 世界 で は 16 進数 が よく 用 いら れる . 本 来 は 。 ビ ピッ ト 単 位 
に 構成 きれ て いる の で ある か ら , 2 進数 の 方 だが コンピ ュー タ に は ふさ わ 
し い の か も 知れ な い が , その 親戚 で ある 16 進数 の 方 が , 我々 が 日 常用 いて 
いる 10 進数 に 近い と いう 理由 と , 1 バイ ト が 16 ビッ ト で ある と いう ハー 
ドウ ェ ア 上 の 理由 か ら , 我々 は 16 進数 を 多用 する の で ある . 
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人 ー 時 的 変数 は な る べ ぐ 
用 な / け 


我々 は プロ グラ ム を 読む と き , 必ず 変数 に 付随 する 役割 を 頭 に 覚え て いる も 
の で ある . し か し 大 き な プ ログ ラム に な る と 必然 的 に 多く の 変数 名 が 出 て き て , 
それ ら の 役割 を いち いち 覚え る の は 大 変 に な っ て くる . し た が っ て 。 プロ グラ 
ム に 現われ る 変数 の 数 は 、 少な けれ ば 少な い ほ ど そ の プロ グラ ム は 読み や すく 
な る も の で ある . いま 次 の 論理 を 考え よう . 

< 例 > 変数 X の 値 を 2 乗 し た も の を , 新た に 変数 X に 代入 する . し か し 。 
も し その 新た な X の 値 が 100 を 超え て いた な ら , も と の X の 値 に 変数 X の 値 
を も どす . これ を 文章 通り に プロ グラ ミン グ す る と , 不可 避 的 に その 場 限り の 
一 時 的 変数 が 現われ て し まう . (ここ で は その 変数 名 を A と する ) 

260 A=X 
270 X ニ X*X 
280 IF X>100 THEN X=A 

現実 に は こん な プロ グラ ミン グ を する 人 は いな いと 思う . すなわち , 次 の よ 
うに 1 ステップ で 表現 で きる . 

260 IF X*X <=100 THEN X= ニ X*X 

論理 が 込み 入る と , 上 例 の よう に 簡単 に は 一 時 的 変数 を 消却 で き な い こと が 
多い . し か し , プロ グラ ム を 読む 立場 に な っ て 考え れ ば , この よう な その 場 限 
り の 一 時 的 な 変数 は 努力 し て 用 いな いよ うに すべ き で ある . 

上 例 の よう に 論理 を 工夫 する こと で 一 時 的 変数 を 除く こと が で きる 場合 と 。 
BASIC 文法 を し っ か り マ スタ ー す る こと で 一 時 的 変数 を 回 避 で きる 場合 と が 
ある . 後者 で は 有名 な SWAP 命令 を 例示 し て みよ う . 

2 変数 A, B の 値 を 入れ 換え る に は , どう し て も その 場 限り の 変数 が 必要 に な 
る (ここ で は それ を C と お く ). これ を 用 いて 次 の よう に 記述 で きる . 

100 C=A 
110 A=B 


と と 4 





120 B=C 
BASIC の マニ ュ ア ル に し っ か り 目 を 通し て いれ ば , BASIC に は 大 変 便利 な 
命令 が ある こと に 気づく . それ が SWAP 命令 で ある . これ を 用 いる と 上 の 3 行 
は 次 の 1 行 で すま せら れる . 
100 SWAP AB 
この よう に BASIC を し っ か り マ スタ ー す る こと で も 一 時 的 な 変数 の 利用 を 
避け る こと が で きる の で ある . し か し 例外 も ある . 次 の 例 を 見 て みよ う . 
250 IF B*B-4*A*C>0 THEN S ニ 2 
260 IF B*Bー-4*A*C ニ 0 THEN S=1 
270 IF B*B-4*A*C<0 THEN S=O0 
この 例 で は 当然 次 の よう に すべ き で ある . 
250 D=B*B-4*A*CS ニ 0 
260 IF D>0 THEN S=2 
270 IF D=0 THEN S=1 
こう する こと で て 処理 速度 は 向上 し , また キー イン ミス も 少な く な る . 
以上 の 例外 を 認め た 上 で , 我々 は 次 の こと を 主張 する . 


一 時 的 に し か 用 いな い 変数 は , な る べく 用 いな いよ うに し よう . 





且 記 | swAP 合 人 


BASIC の 命令 の 中 で この 命令 は ぜひ 覚え て お くべ き で ある . それ は 二 
つの 変数 の 入れ 換え と いう 操作 を よく 用 いる か ら で あ り , それ を 本 節 で 述 
べた よう に 三 つ の ステ ッ プ で 行っ た の で は 大 変 処 理 効率 が 落ち て し まう . 
特に ソー ト な ど を パソ コン で 行う と き , この 命令 を 知っ て いる か どう か で 
処理 時 間 に 少 な か ら ぬ 影響 が 出 て し まう . 
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< うーFーTHEN こ ELSEー 


は 避け よう 


BASIC は 条件 判定 と し て 次 の 構文 を 用 意 し て いる . 
IF 一 THEN 一 ELSE 一 
有効 で も あれ ば , この 命令 を 当然 存 分 に 用 いて よい の だ が 。 や は り そ れ な り の 心 
配り が 必要 で ある . 
次 の プロ グラ ム を 見 て みよ う . これ は 任意 の 数 値 A に 対し て , その 平方 根 
(A く 0 の と き は JIAI i) を 求め る も の で ある . 


100 INPUT " し 】 

110 1F >=O THEN X=A ELSE X=-A 

120 X=SQR(X) 

1 さ O_PRINT "root ="sXs 

140 IF <O THEN PRINT "1" ELSE PRINT 








これ は これ で 正常 に 動く が 。 次 の プロ グラ ム と 比較 し て みよ う . 
100 INPUT "as"sa 
110 X=As TF A<O THEN X メ ニーム 
120 X=SQRX) 
13O PRINT "root =VsX 
140 IF A<O THEN PRINT 
15O PRINT 


我々 は 後者 の 方 勧める. すなわち, 同じ 内 容 を 示す な ら , 一 文 は で きる だ 
け 短 い 方 が よい . IF て THEN-ELSE-- と する と , 文章 的 に は 複 文 と な り 冗 長 
と な る . すなわち 。 
も し な ら ば ー で あり , そう で な けれ ば て で ある 

と いう の は 長い . た と えば , 上 例 の 二 つ の 行 番号 110 を 見 て みよ う . 
110 IF A> ニ 0 THEN X ニ =A ELSE X ニ ーA 
110 X=A:IF A<0 THEN X ニ ーA 

前 者 は 複 文 構造 と な っ て いる が , 後者 は 二 つ の 簡単 な 文章 の 連結 で ある . 明 
ら か に 後者 の 方 が 分 か りや すい . 

IF-THENELSE- の 構文 は 多く の 場合 , も っ と 短く 簡単 な 命令 の 和 に 置 
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き 換え られ る , 我々 は 長い ぃ 一文 よ り 簡 潔 な 二 文 の 方 を 解 し や すい と 感じ る . こ 
の こと に 気 を つけ な が ら ELSE を 用 いて も らい た い 。 


ELSE は な る べく 用 いる な 


複 文 を 避け よ , と いう 主旨 は 次 節 の IF て THENIF は や め よ うと いう こと 
に つなが る 。 これ を も っ と 一 般 化 し て , 長い 冗長 な 一 命令 を 避け よう , と も 換 
言 で きる . 次 の 二 つ の 例 を 見 て みよ う . 

( 例 ) 250 PSET (Y-XxSIN(T) ,ZーX*COS(T) ) 


( 例 ) 250 XG=Y-XxSIN(T) : YB=Z-X*COS(T) 
260 PSET (XG,YG) 


これ は 3 次 元 座標 (XK, Y。Z) を 画面 に 描く も の だ が , や は り 下 の 例 の 方 が 
見 や すく , 修正 も し や すい で あろ う . 


長い 冗長 な 命令 は 短 か い 簡 潔 な 命令 に 分 割 し よう . 





ELSE の 消去 


本 節 の 例 で も そう だ が , ELSE を 消 そ うと する と 一 時 的 に 用 いる 変数 を 
用 いざ る を 得 な いこ と が 多い . (本 節 の プロ グラ ム 例 で は 変数 X が それ で 
ある .)22 節 で 述べ た よう に 1 次 的 な 変数 は な る べく 用 いな い 方 が よい . そ 
うす る と , 我々 は 二 つ の 原理 の 間 に は さま れ て 困惑 する . この よう な 場合 
は 我々 の 判断 を 素直 に 入れ る べき で あろ う . すなわち , どちら の 方 が 分 か 
りや すく 効率 が 良い か 。 を 自分 で 決め る の で ある . 














ビル 4 








IFーTHEIN IFー は 
や やめよ う 


多く の パソ コン の BASIC は 。IFーTHEN に 続く 命令 に IF を 用 いて 良い よ 
うに 作ら れ て いる 。. 

* 例 1> 

100 IF A>0 THEN IF B>0 THEN X= ニ 1 ELSE X=0 

この 例 か ら も 分 か る よう に IF-ーTHEN IFー と いう 構文 は 非常 に 見 に くい も 
の で あり , 回 避 す べき プロ グラ ミン グ で ある . 

この 例 は 次 の よう に すべ き で あろ う . 

100 IF A>0 AND B>0 THEN X=1 

110 IF A>0 AND B<=0O THEN X=0 

常に この よう に 簡単 に 書き 換え られ る も の で も な い が , 論理 を 工夫 する こと 
で 必ず 上 例 1 の 構文 は 避け られ る は ず で ある . た と えば 次 の よう な 表 を 作る こ 
と で ,。 この こと が 実現 し や すく な る 。. 

















A B X 
+ メニ 1 
+ | -or0| X=0 
ー-or0| + 
NOP 
ー-or0| -or0 

















ここ で NOP と は 何 も し な い (no operation) の こと で ある . この よう な 表 の 
こと を ディ シ ジ ョ ン ・ テ ー ブ ル (decidion table) と 呼び , 条 件 判定 が 多い 場合 
に 論理 を 整理 する の に 役立つ も の で ある . 

以上 の よう に , 何ら か の 工夫 を する こと で 冗長 な IF-THEN IF 構文 は 回 
避 す る こと が 望ま し い . 1 行 の 命令 が 長け れ ば 長い ほど , 読む 人 の 理解 を 苦し 
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め る こと に な る . 


IF-THEN IFー は 論理 を 整理 し て 複数 行 に 分 け よう . 





構造 化 プ ログ ラミ ング 


プロ グラ ム の 作成 の し か た へ の 要請 と し て 本 書 1 節 で は (1)^(5) を 掲げ た 
が これら を いか に 実現 する か に つい て は 色々 な 説 が ある . その 中 で 有名 
な も の と し て 表題 の も の が ある . これ は 次 の よう な 主張 か ら 成 り 立っ て い 
る . 

(』) モジ ュー ル 化 を 徹底 する 
(b) GOTO 文 を な くす 
(c) 段 づ けけ を し っ か りす る 


近年 パソ コン の プロ グラ ム に も 以上 の こと が 要求 きれ て いる の で ある 。. 











GOTO と 飛び 出し は REM 文 に 
GOTO 命令 な ど で 飛 ぶ と き , 我々 は その 先 の 文 番 号 に は 注釈 文 を あて る 
べき で ある . 
730 GOTO 950 


950 " リ ソ ク ノ ケイ サン 
こう する こと で 二 つ の メリ ッ ト が 生ま れる . 一 つ は プロ グラ ム が 見 や す 
く な る こと で あり , も う 一 つ は 訂正 ・ 追 加 が し や すく な る の で ある . 











計算 は 計算 後に 


次 の コー ディ ング を 見 て みよ う . 

270 V=4.18879 * RA3 

これ を 見 て すぐ に は 何 の 計算 を し て いる か は 不明 で ある . これ に 対し て 次 の 
コー ディ ング を 見 て みよ う . 

270 P=3.141592 : V= ニ 4 * P/3 * RA3 

この 形 な ら 我 々 は すぐ に 体積 の 公式 ソー gy* を 思い 潤 か べ る こ と が で き 
る . 

も う 一 つの 例 を 上 げ よ う . 

140 Y ニ =.434294 * LOG(X) 

や は り 読 む 人 は 何 を いっ て いる か 分 か ら な い . これ に 対し て 次 の よう に 記述 
し て みよ う . 

140 Y 三 LOG(X)/LOG(10) 

数 学 に 少し 慣れ た 人 な ら す ぐに “これ は 常用 対数 の 計算 だ " と 気づく 

この 二 つ の 例 は 処理 効率 を 偽る ああ まり プロ グラ ム の 分 か りや すさ を 犠牲 に し 
た 例 で ある . コン ピュ ー タ に 4z/3 を 計算 させ な いた め に 電卓 で それ を 計算 し 
4.18879 と いっ た 見 な れ な い 数 値 を コー ディ ング し て し まっ た の で ある . LOG 
に つい て も 同様 で ある . 

我々 は , 1 ミリ セカ ンド の 時 間 を 問題 に する よう な プロ グラ ム の 作成 を する 
と き は 除い て , プロ グラ ム の 分 か りや すさ を 絶対 に 放棄 し て は いけ な い . 電卓 
で 計算 させ る な ら マ イコ ン に それ を させ れ ば よい 


計算 は コン ピュ ー タ に 任せ よう . 
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本 時 


し っ か り 


次 の プロ グラ ム を 考え よう . 


100 S=O 

110 FOR K=1 TO 100 
12O 5=S+K 
13O_NEXT に K 

14O PRINT 8 

15O END 


これ は 1 十 2 二 …… 十 99 十 100 を 求め る プロ グラ ム で ある . パソ コン の RUN 
コマ ンド 機能 を 知っ て いる と 行 番号 100 は 不要 で ある . と いう の は RUN が 実 
行 され る と , すべ て の 数 値 変数 は 値 が 0 に 設定 され る か ら で あ る . し か し 我々 
は プロ グラ ム を 書く と き , 必ず 行 番号 100 の よう な 変数 の 初期 設定 を し っ か り 
する 習慣 を つけ る こと を 要求 する . 
プロ グラ ム が 複雑 に な る と 色々 な と ころ か ら , ある 部 分 が 呼ば れる . その と 
き 上 例 で は S と いう 変数 に 100 と いう 数 値 が 入っ て , この 部 分 が 呼ば れる こと 
も ある わけ で ある . S と いう 変数 は 他 で は 使っ て いな いと いう 自信 が ある か も 
知れ な い . また この 部 分 は 絶対 に 他 か ら 呼 ば れ な いと 確信 し て いる か も 知れ な 
い . し か し , プロ グラ ム は 時 間 と と も に 変更 ・ 修 正 き れ て いく も の で ある . 後 
に な っ て , この 部 分 が 呼ば れ ,S と いう 変数 が 呼ぶ 側 の ルー チン で 使わ れる よう 
な 変更 が な され る か も 知れ な い . た か だ か 1 ステッ プ を さぼ っ て その よう な 危 
険 を 招く よう な こと は すべ き で な い . 
変数 の 初期 値 設定 に お いて 次 の こと を 知っ て いる と 便利 で ある . 
(1) DIM の 宣言 の 直後 に は その 宣言 され た 変数 が 数 値 変数 な ら 0, 文字 
変数 な ら ヌ ルス トリ ング が 入る . 
(2) DEFINT 等 の 宣言 後に は は その 宣言 され た 頭 文 字 を も つ 変 数 は 0 ( 文 
字 変 数 宣言 な ら メ ルス トリ ング ) が 入る . 








変数 の 初期 値 設 定 は こま め に て いね い に す る 習慣 を . 
57 





2 病 令 は 簡潔 に 


BASIC は イン タプ リタ 言語 で ある . コン パイ ラ 言 語 (FORTRAN, COBOL 
な ど ) と 違っ て 命令 の 解読 に 非常 に 時 間 が か か る 言語 で ある . し た が っ て コー 
ディ ング に 際 し , 1 ステ ッ プ で も BASIC 命令 が 少な いこ と は 処理 時 間 を 短縮 
する の に 大 き な 寄 与 を する も の で ある . その た め に は 。 論理 を 工夫 し て 不要 な 
命令 を 書か な いこ と , お よび 簡潔 な BASIC 命令 を 選択 する こと が 重要 で ある . 

論理 を 工夫 し て 不要 な 命令 を 書か な い 。 と いう こと は 我々 は 常に プロ グラ ミ 
ング の 際 。 心 に 留め て お か ね ば な ら な いこ と で あり , これ は あら ゆる 言語 に 共 
通し て いる こと で ある . し か し 簡潔 な BASIC 命令 を 選択 する と いう こと は , 他 
の 言語 に も まし て 重要 と な る . た と えば FORTRAN (ある い は COBOL) で 

A=B+C 


Y=X+A 
と いう 2 ステ ッ プ の 命令 を 書く こと と 
Y=X 二 B+C 


と , 1 ステップ で 書く こと で は それ ほど 実行 処理 時 間 に 違 い は な い . これ に 対し 
て BASIC で 

250 A= ニ B+C 

260 Y=X 十 A 
と 書く こと と , これ を 1 行 に まとめ て 

250 Y=X 二 B+C 
と 書く こと で は 処理 時 間 に 大 き な 差 が で る . 

この 例 で わか る よう に , BASIC の イン タプ リタ 言語 と し て の 特徴 を し っ か 

りつ か み , コー ディ ング 時 に 命令 を 短く 書く 努力 を すべ き で ある . 


BASIC を 用 いて の コー ディ ング で は 冗長 は 許さ れ な い . 


BASIC は 。 コーデ ィング の 冗長 さ を な くせ る よう , 他 の 言語 に 比べ て 色々 な 
種類 の 命令 を た 用意 し て くれ て いる . し た が っ て , パ ソコ ン の プロ グラ ミン グ に 
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は で きる だ け 多 く の 命 令 を 頭 に 入れ て お く こ と が 大 切 で ある . た と えば , 22 節 
で 述べ た SWAP 命令 が よい 例 と な る . 
SWAP AB 
この 命令 を 知ら な いと , 次 の よう に 記述 し な けれ ば な ら な く な る . 
メニ A : AB : B ニ A 
ずい ぶん に 分 か り に くい . も う 一 つの 例 と し て 次 の 左右 の 命令 を 見 て みよ う - 
A$= ニ MID$ (X$,LEN (X$) 一 2, 2). A$ ニ RIGHT$ (X$, 2) 
これ ら は 文字 X $ の 左側 の 2 文字 を 変数 A $ に 代入 する 命令 で ある が 。 明らか 
に 右 の 方 が 簡潔 で 分 か りや すい . 





全米 ・ 実 弄 


数 値 を 表現 する し か た と し て , BASIC は 表題 の 2 通り の 方 法 を 用 意 し 
て いる . 整数 型 は まさ に 整数 の み を 表現 し , 2 バイ ト の 長 さ の 領域 内 で 表 わ 
され る . すなわち ー32768 か ら 32767 まで の 整数 を 表現 する . これ に 対し て 
実数 型 と は 小数 X10 "の 形 の 数 を 表現 する . これ に は 単 精度 型 と 倍 精 度 弄 
と が あり , 小数 部 の 有効 桁 が 各々 7 桁 。16 桁 と な っ て いる . この 実数 型 の 
バイ ト 数 と し て BASIC は 単 整 度 型 に 4 パイ ト を, 倍 精 度 型 に 8 バイ ト を 
あて て いる . 当然 整数 形 。 単 精度 実数 形 , 倍 精度 実数 形 の 順 で パソ コン 内 
の メモ リ 消 費 が 大 きく , また その こと と 関連 し て 計算 スピ ー ド も 遅く な る 
こと に な る 。 





し 
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実行 する 命令 の 数 を 減ら し , 一 つの 命令 に つい て も 不用 な パラ メー タ は つけ 
な いで お く こ と は , BASIC の よう に 翻訳 に 時 間 の か か る 言語 で は 特に 大 切な 
こと で ある . この こと を 実現 する いく つか の 方 法 を ここ で 紹介 する が , これ ら 
の 例 に よっ て 主旨 を 理解 し て も らい た い . 


* 例 1> 配列 変数 S(1) 一 (10) を 定義 し ,。 これ ら を 0 に 初期 設定 せよ . 
この 例 に 対し て 次 の コー ディ ング が 考え られ る . 
10 DIM S(10) 
20 FOR K=1 TO 10: S(K)=0: NEXT K 
し か し , BASIC に 精通 し て いれ ば , この 2 行 の 命令 の 一 方 は 不要 で ある こと 
が 分 か る . すなわち , BASIC は 10 まで の 配列 に は DIM 宣言 は 不要 と し , また 
DIM 宣言 後に 最初 に 用 いら れる 配列 の 値 を 0 に 初期 設定 し て いる の で ある . 特 
に 後者 に つい て は し っ か り と 覚え て お く と 便利 で ある . た と えば プロ グラ ム 途 
中 100 個 の 要素 か ら な る 配列 A に つい て 。 その 中 味 を クリ ア し た いと き に は 
FOR K=0 TO 1000 : A(K) =0 : NEXT K 
と いう コー ディ ング を する と 時 間 を 浪費 する . 次 の よう に する . 
ERASE A:DIM A(100) 
両者 と も 1 行 の 命令 で ある が , 前 者 は 100 個 の BASIC 命令 を 実行 し , 後者 は 
二 つ の 実行 で すん で いる の で ある . 








<《 例 22 0. 十 0.27 寺 …… 1.0* の 和 を 求め る プロ グラ ム を 作ろ う . 
FORTRAN な ど に 慣れ て いる 人 は 。 し ば し ば 次 の よう に コー ディ ング し て 
し まう 。. 
1oO 5=O 
110 FOR K=1 TO 10 


120 S=S+(K*。 1) へ 2 
13O_ NEXT K 
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BASIC 命 令 に 精通 し よう 


これ は , BASIC の 多彩 な 機能 を 覚え て いな いこ と か らく る 冗長 性 で ある . こ 
れ は , 次 の よう に すべ きだ ろう 。 
100 S=O 
110 FOR X=O TO 1.01 STEP -1 
12O =S+X*X 
13O_ NEXT X 
こう する こと で プロ グラ ム は 分 か りや すい し , 計算 が 少な い 分 だ け 処理 が 束 
い 。 ( 行 番号 110 で X の 終端 を 1.01 と し た の は , あら か じゅ め 誤差 が 生じ た と き 
の 対応 で ある . 32 節 参照 ) 


< 例 3> 二 つ の 数 値 jj を 3 で 割っ た 値 の 組 G/3, j/3) を グラ フィ ッ ク 座 
標 と し て , その 座標 上 に 点 を 打 と う . 
神経 質 な 人 は 次 の よう に コー ディ ング する だ ろう . 
300 X=INT(I!/3) : Y=INT(J/3) 
310 PSET(X, Y) 
すなわち , マ ニュ アル に は グラ フィ ッ ク 座 標 (X, Y) の X, Y は 整数 と 書か れ 
て いる か ら , 上 記 の よう に INT 関数 を 用 いた の で ある . し か し , こ れ は 次 の よ 
うに コー ディ ング すべ き で ある 。. 
300 PSET(!/3. J/3) 
この 理由 は , 必要 な 切り 捨て は BASIC が し て くれ る , と いう こと で ある . 
( 注 : 市 販 さ れ て いる 一 部 の 機種 で は 切り 捨て で は な く 四 捨 五 入 され る .) 








BASIC に 頼れ る と ころ は , すべ て BASIC に 頼 ろう . 
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で 数 式 は その まま の 形 で 


コー ディ ング する な 


人 間 で も そう だ が , コン ピュ ー タ に お いて 計算 回 数 が 少な けれ ば , 
スピ ー ド は 速く な る . 





ッ ニ 十 272 十 3z 十 4 
を コー ディ ング する と き 
100 Y ニ X*X* ネ X 十 2* ネ X* ネ X 十 3*※X 十 4 
と する と 演算 の 数 は 合計 8 個 で ある の に 対し て 。 
100 Y ニ ((X 十 2) * X 十 3) * X 二 4 
と する と, 演算 の 数 は 合計 5 個 に な り , 当然 計算 スピ ー ド は 上 が る は ず で ある . 
この よう に 数 式 に 少し の 工夫 を 加え る こと で 処理 効率 が 向上 する こと が 多い . 
< 例 > 関数 ャ ニ x%? に お いて 区 間 =x ミ の で x 軸 と この グラ フ と で 囲ま れ た 
面積 を 求め て みよ う . 
これ を 一 番 簡単 な 区 分 求 積 法 で 求め て みる . 数 学 の 有名 な 公式 を 用 いる . 
= ミ (ax)2Ar (Ax ニ を 衝 三 6 寺 ん Ax) 
ここ で W を 十分 大 きく と る と S, は 面積 の 良い 近似 値 と な る . この 数 学 の 式 
を その まま コー ディ ング する と 次 の よう に な る だ ろう . 


270 =O: D=(B-A) /N 
280 FOR K=1 TO N 

290 S=B+ (A+KwD) へ 2xD 
き OO NEXT K 

さ 10 PRINT 8 





し か し , 少し 考え れ ば 次 の よう に し た 方 が 良い こと が 分 か る . 





27O 8= B- 人 n) /N 
280 FOR K=1 TO N 
29O =S+ (A+KwD) へ 2 
さ OO NEXT K 

さ 10 8=S*D 

さ 20 PRINT 8 
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すなわち 。 数学 上 の 有名 な 公式 を 次 の よう に 変形 し て お く の で ある . 
N 
』 Sn ニ Ar( ミア (3) ) 
こう する こと で , ずい ぶん 積 ネ の 数 が 減少 する . 


公式 な ど を , その まま の 形 で コー ディ ング し て は な ら な い . 





| wem | ルー プ 計 算 と 数 式 変形 


コー ディ ング に お いて , 処理 時 間 の 短縮 を ね ら う と き 一 番 注意 する の が 
ルー プ 計 算 内 で の 命令 記述 で ある . そこ で は プロ グラ ム 中 。 し ば し ば 実行 
され る と ころ な の で 簡潔 な 命令 を 書い て お か ね ば な ら な い . そし て 本 節 の 
注意 も ,。 その 中 で 生き て くる の で ある . ( 何 も 1 回 し か 実行 され な いと ころ 
で , 本 節 の 技法 は 無 意 味 で ある .) 
その ルー プ 計 算 内 で は 次 の 二 つ を 念頭 に お いて コー ディ ング すべ き で あ 

る 

(1) も っ と 簡単 で 短い BASIC 命令 は な いか 

(2) も っ と 演算 回 数 が 少な い コ ー デ ィング の し か た は な いか . 
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フワ ーー 兵学 を 遍 直 と せよ / 


高校 数 学 程度 の 教養 を 身 に つけ て いる と , それ が プロ グラ ム の 処理 効率 を 向 
上 させ る の に 大 き な 武 器 と な る . 
< 例 1> 二 つ の 変数 X。Y (両方 と も 正 数 と する ) の 各々 の 常用 対数 の 和 を 
計算 し 。 それ を 変数 S に 代入 せよ . 
この 例 を 単純 に プロ グラ ミン グ す る と 次 の よう に な る . 
300 S= ニ (LOG(X) +LOG(Y) )/LOG(10) 
し か し , これ で は LOG と いう BASIC に 備わっ た 数 値 関数 を 3 度 呼び 出す こ 
と に な り , 計算 速度 は 遅く な る . し た が っ て , よほど プロ グラ ム が 分 か り に く 
く な る こと が な い 限 り 。 我々 は 次 の よう に コー ディ ング すべ き で ある 。. 
300 S=LOG(X * Y)/LOG(10) 
算 速 度 の 遅い 数 値 関数 を 呼び 出す の が 2 度 に 減っ た . FOR-NEXT 
文 で この 計算 を 多く させ る と , 二 つ の プロ グラ ミン グ の 差 が 非常 に 大 きい こと 
が 分 か る で あろ う . (も ちろ ん , そ の と き に は LOG(10) も 数 値 に に て お くべ き で 
ある .) 
< 例 2> 変数 X の 正弦 値 と 余弦 値 と を 掛け 合わ せ , それ を 変数 M に 代入 せ 
よ 。 
これ も く < 例 1> と 同じ 理由 で 次 の 二 つ の 文 の どちら を と る べき か は 自明 で あろ 


う 





370 M=SIN(X) * COS(X) 
370 M=.5 *SIN(2*X%) 
ここ で 数 学 上 の 有名 な 公式 (倍角 の 公式 ) 
sin 2x 王 2 sin rcosr 
を 用 いて いる . この 例 1, 例 2 の 技法 を 用 いる と 次 の よう な 数 値 計算 で , 計算 束 
度 は お お よそ 半減 する . 
< 例 3> login ) log(cos 3) ) dy の 値 を 区 分 玉 積 法 を 用 いて 求め 
上 。 
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10O N=10O :P= マ -14159 

110 QA=P/4:B=P/ さ : D=(Bー 人 An) /N 
120 S=O 

13O FOUR X=A TU B STEPD 

140 5=S+LDG(STN(X) *CDS(X) ) 
150 NEXT X 

16O S=SwD 

170 PRINT 8 

18O END 


行 番号 140 が 示し て いる よう に , 単に 与え られ た 式 を プロ グラ ム の 式 と すべ き 
で な く , いか に し て 計算 速度 が 上 が る か の 工夫 を すべ き で ある . 

最後 に , 数 学 の 公式 を 用 いて 処理 時 間 を 短く する と き の 注 意 点 を 述べ よう . 
数 学 を 武器 と し て 式 変形 を し た も の を コー ディ ング する と , どう し て も プロ グ 
ラム が 分 か り に くく な っ て し まう . 処理 効率 を 上 げ て も プロ グラ ム が 難解 と な 
り , 万 一 バグ が 発生 し て も な か な か 対応 が と れ な く な っ て は 元 も 子 も な い 。 し 
た が っ て 本 節 の 技法 を 用 いる と き に は , この こと に 十分 気 を つけ ね ば な ら な い . 
次 の 例 は 、。 この こと を 考え た コー ディ ング 例 で ある . 

370 M=.5 *SIN(2 * X) :'M=sin(%)cos(%) 

これ は < 例 2%? の コー ディ ング を 改良 し た も の で ある が 。 この コメ ント 文 の 主 

旨 に つい て は 説明 を 要 し な いこ と と 思う . 


数 学 を 用 いて 計算 式 を 簡単 に する 努力 を し よう . 





記 9 座 か 、 わ か りや すさ か ? 


本 節 で は , 効率 の よい コー ディ ング は わか り に くく な る と いう 印象 を 与 
えて し まう が , 経験 上 次 の こと が いえ る . すなわち , 多く の 場合 , わかり 
や すい プロ グラ ム は 簡潔 で あり , 簡潔 な プロ グラ ム は 効率 が よい . 











3 使用 ずみ 資源 は すぐ に 返 却 


ちょ っ と し た 設計 の 工夫 や 、 コ ー デ ィング の し か た に よっ て , 我々 は 限ら れ 
た パソ コン シス テム の 資源 を 有効 に 利用 で きる よう に な る . そし て , この 工夫 
を 怠る こと で , 本 来 購入 の 必要 の な い RAM や ディ スク 装置 を 買わ ざる を えな 
く な る こと が ある 。 この 節 で は この 点 に つい て 。 コー ディ ング 時 に お ける 心配 
り を 述べ よう . 

ーー つの 例 と し て , ディ スク モー ド の シス テム の 立ち 上 が り 時 に シス テム は 次 
の よう な 入力 要求 を 我々 に し て くる . 

How many files ? 

我々 は この 入力 要求 に 対し て , 同時 に 用 いる ディ スク ファ イル の 数 を 入力 す 
る わけ で ある が 。 資源 の 有効 利用 と いう 観点 あら , この 数 は で きる だ け 小 さい 
方 が よい . すなわち 。 大 き な 数 値 を 入れ る と それ に 比例 し て シス テム が ワー ク 
エリ ア お よび イン タフ ェ ー ス エリ ア と し て 我々 ユー ザ が 使用 で きる メモ リ 内 に 
領域 を 確保 し て し まう . 必然 的 に 利用 で きる メモ リ が 小さ く な っ て し まう の で 
ある . 

また 同時 に アク セス する ファ イル の 数 を 大 きく と り 過 ぎる と ディ スク 装置 そ 
の も の を 新た に 購入 し な けれ ば な ら な く な っ て し まう . 

この よう に ディ スク ファ イル に つい て は 同時 に 使用 する 数 を 可能 な 限り で き 
る だ け 小 さく する こと が 望ま し い . そし て , この こと を 念頭 に 置い て プロ グラ 
ム 設 計 を すべ き で ある . また コー ディ ング に 際 し て は 既に 使用 ずみ と な っ た フ 
ァイル は すぐ に CLOSE すべ き で ある と いう こと に な る . すなわち 開い た ファ 
イル を いつ まで も 閉じ ず に 放置 し て お く こ と は 大 変 不 護 償 な の で ある , 開い た 
ファ イル は で きる だ け す ぐに まとめ て 使用 し , そし て 使い 終っ た ら 即 座 に 
CLOSE すべ き な の で ある . 

も う 一 つの 例 と し て 配列 を 考え て みよ う . 我々 は 配列 を 安易 に 用 いた た め に 
次 の よう な エラ ー メ ッ セ ー ジ を BASIC に 出さ せ て し まう こと が よく ある . 

out of memory 
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これ は プロ グラ ム の 設計 に お いて 我々 が メモ リ の 見 積 り に 失敗 し た こと が 原 
因 で ある が , この メッ セー ジ が 出力 され た か ら と いっ て あわ て て 設計 変更 し た 
り , 新た に 増設 RAM を 購入 し た りす べき で は な い . まず コー ディ ング 段階 で 
し っ か り し た 資源 の 有効 利用 を し て いる か を チェ ッ ク す べき で ある .。 た と えば 
モジ ュー ル 化 され た プロ グラ ム で ,。 一 つの モジ ュー ル 内 で し か 使用 し て いな い 
配列 は , 他 の モジ ュー ル に 実行 を 渡し た と き に きち ん と ERASE され て いる か 
と か , ある 一 箇所 で し か 使用 し て いな い ワ ー ク 用 の 配列 が いつ まで も 生き 残っ 
て いる の で は な いか , と いっ た 初歩 的 な チェ ッ ク が 意外 に 問題 を 解決 し て くれ 
る の で ある . 

















*SUBA 


GOSUB *SUBA DIM A(1000) 


ERASE A 
RETURN 


メイ ン ル ー チ ン 


以上 , ディ スク ファ イル と 配列 の 二 つ の 例 で 資源 の 有効 利用 に つい て 触れ 。 
また その コー ディ ング 上 の 対策 と し て 使用 ずみ 資源 (ファ イル , メモ リ な ど ) 
の 即時 返却 を 述べ た この 二 つ の 例 か ら わ か る よう に , コン ピュ ー タ の 限ら れ 
た 資源 は 常に フル に 利用 する と いう 心配 り が 大 切 で ある . 使っ た まま プロ グラ 
ム が 終了 する まで それ を 放置 し て お く の は も っ た いな い 話 で ある . 


使用 ずみ ファ イル は すぐ に CLOSE, 利用 ずみ 配列 は すぐ に ERASE . 
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2 等 号 の 判定 は 民 重 に 


次 の 例 を プロ グラ ミン グ し て みよ う . 


<《 例 > 01 十 0.2 十 0.3+…… 十 1.0 の 和 を 求め よ 
これ に 対し て 次 の よう な コー ディ ング を し た と する . 


10O =Os X=OQ 

11O 「『 

120 IF X=1 THEN 16O 
1 さ O X=X+-1 

140 =S+X 

15O _ GOTO 120 

16O PRINT 8 

17O END 


実際 これ を RUN する と パソ コン は 沈黙 する . すなわち 行 番号 20 こ 60 の 間 
を ぐる ぐる 回 る 計算 を 延々 と 続け て いる の で ある . こう いう 状態 を “無限 ルー 
プ に 陥る " と いっ て , 我々 が し ば し ば 経験 する こと で ある . 

上 の 例 の 無限 シル ー プ の 原因 は 行 番号 120 に ある . 21 節 で も 述べ た よう に コン 
ピュ ー タ は 数 値 を 2 進 表 示す る が , この と き 0.1 を 2 進数 で 表わす と 

0.00011001 
と いう 無限 に 続く 数 と な る . コン ピュ ー タ は これ を 有限 桁 で 切っ て し まう の で 。 
結局 0.1 と いう 10 進数 を 2 進数 で 正確 に 表現 し な か っ た こと に な る の で ある . 
この た め 。 行 番号 40 は 我々 の 理論 通り に 等 号 を 満 す こと が な いた め , 絶対 に 行 
番号 160 に 脱出 で き な い の で ある . 

我々 は プロ グラ ム の コー ディ ング に お いて , IF 文 の 中 に 数 値 変 数 の 関係 する 
等 号 を お く こ と に 大 変 な 注意 を 払わ ね ば いけ な い . 理論 的 に は 等 号 が 満 さ れ て 
も , パソ コン の 表現 方 法 で は それ を 満 し て いな いこ と が ある の で ある . 

この よう な こと を 回 避 す る た め に , 我々 は 次 の よう に コー ディ ング する こと 
を 勧め る . すなわち 。 等 号 判 定 は それ より も 条件 の ゆる い 不 等 号 の 判定 に 書き 
変え よ と いう こと を 原則 に する の で ある . この 節 の 例 で は 次 の よう に する . 

120 IF X>=1 THEN 160 
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こう する こと で 条件 が ゆる く な り , 万 一 パソ コン の 内 部 表現 に 誤差 が 生じ て 
も 大 丈夫 に な る の で ある . 


等 号 の 判定 文 は な る べく 避け , 不 等 号 に 書き 変え よう . 





且 請 証 『OR.-NExT で 無限 ルー プ 回 違 


この 節 の 例 は FOR-NEXT に も いえ る こと で ある . 


1O0O S=O 

110 FOR X=O TO 1 STEP -1 
12O 5=S+X 

13O_ NEXT X 

140 PRINT S 

15O END 


これ は 本 節 の プロ グラ ム を FOR-NEXT を 用 いて 書き 換え た も の で あ 
る . 実行 し て みる と 
4.5 

と いう 値 を 表示 する (正答 は 5.5). す な わ ち GOTO 文 を な くし て FOR 
て NEXT 文 に し て も , 無限 ループ は 回 避 で き て も 正解 は 得 ら れ な い の で あ 
る . 一 部 に FOR-NEXT を 用 いて 無限 ルー プ 対 策 に で きる と いう こと が 
いわ れ て いる が , 確か に それ は 回 避 で き て も プロ グラ ム に は 誤り が 生じ る 
(58 節 を 参照 の こと ). 
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時 入力 デー タ の チェ ッ ク は 
厳密 に 


キー ボー ド か ら 与 えら れ た デー タ に つい て は 。 我々 は それ を 厳密 に チェ ッ ク 
せ ね ば な ら な い . キー 操作 を する 人 が 誤る こと を 常に 仮定 し て プロ グラ ム を つ 
くる の で ある . そし て 。 も し , キー 操作 ミス で プロ グラ ム が 誤動作 を し た な ら 。 
その 責任 は オペ レー タ で は な く プ ログ ラム 作成 者 に ある . 

例 と し て 次 の プロ グラ ム を 考え よう . 


10O root cal1culation 
110 INPUT "x="X 

120 R=SQGR(X) 

13O_ PRINT "root x ="sR 
14O END 


これ は 入力 され た X の 値 に 対し て , その 平方 根 を 求め る プロ グラ ム で ある . 
「 何 , 簡単 だ ! 」 と 思わ れる か も 知れ な い が , きち ん と し た プロ グラ ム に 仕上 
げ よ うと する と 結構 大 変 で ある . 

上 記 の プロ グラ ム は まだ 未完 成 で ある . も し , X に 負 の 値 が 入っ た と する と 
行 番号 120 で プロ グラ ム は 異常 終了 し て し まう . そこ て で 行 番号 110 と 120 と の 
間 に 次 の よう な チェ ッ ク の 語 令 が 必要 と な る . 

115 IF X<0 THEN 110 

これ で 完成 か 。 と いう と まだ で ある . も し キー 操作 を 誤っ て 行 番号 110 の 入 
力 要求 に "A" と いう 文字 を 入れ て し まっ た と する 。 する と 次 の よう な メッ セー 
ジ が 出力 され て パソ コン は 再び 入力 待ち と な る . 

Redo from start 

プロ グラ ム ・ ユ ー ザ は この メッ セー ジ を 見 て ,「 何 だ 。 この 意味 は ? 」 と 困惑 
し て し まう . そこ で 上 記 の プロ グラ ム は 大 幅 に 変更 きれ ね ば ぱ ば ならない. す な わ 
ち 文字 変数 を 用 いて 入力 要求 を 出す よう 改良 する の で ある . 


10O "root ca1cu1ation 
110 INPUT "="3X 
12O X=VAL(X*) 
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ーーー ニー ニニ ーー 


13O IF X 和 まく >"O" AND X=O THEN 1QO 
140 IF X く O THEN 10QO 
150_R=SQR(X) 

160 PRINT "root x ="R 

170 END 


最初 に 比べ て ずい ぶん と 複雑 に な っ て し まっ た . し か し , これ で も 不 十分 な 

の で ある . も し 入力 要求 に 対し て 次 の 値 を 入れ た と し よう . 
1E+60 

する と 行 番号 20 で "overflow" と いう メッ セー ジ が 出さ れ , 異常 終了 し て し 
示 、。 

この オー バー フロ ー 対 策 は 容易 で は な い . きち ん と し た 文字 処理 を し て チェ 
ッ ク し な けれ ば な ら な い の で ある . この よう に , た か だ か 平方 根 を 求め る プロ 
グラ ム を 作成 する だ け で も , 入力 デー タ が 絡む と 大 変 に な る の で ある . この こ 
と を し っ か り 頭 に 置い て お か な いと 思わ ぬ と ころ で バグ を 発生 させ 困る こと に 
な っ て し まう 。 


入力 要求 命令 の 後に は 必ず デー タチ ェ ッ ク を 厳し く . 





ファ イル セー フ (Fail safe) 





シス テム が 高度 に な れ ば な る ほど , 操作 ミス に 対す る 対策 を 万 全 に し な 
けれ ば な ら な い . 原子 炉 で 作業 員 が ちょ っ と し た 操作 ミス を し た くら いで 
それ が 爆発 する よう で は 危険 きわ まり な い の で ある . この よう に ミス に 対 
し て 万 全 な 策 を と ろう と いう こと を 表現 し た も の に 表題 の 言葉 が ある . す 
な わ ち , まっ た く の 無 知 な 者 が その シス テム を 触っ て も 異常 を 起こ さき な い 
よう に せよ , と いう こと を 表現 し て いる の で ある 。. 














65 


第 3 音 





使 や す /9 プ ログ ラム 


へ の 心 ぐ ば り 


パソ コン の プロ グラ ム は , その 作成 者 だ け 
が 使用 する こと に と ど ま ら ず , 色々 な 人 々 の 
利用 に 供 さ れる よう に な っ て いる . この よう 
な 現実 の 中 で , 我々 の 作成 する プロ グラ ム は , 
どの よう に 設計 な いし は コー ディ ング され な 
けれ ば な ら な いか すなわち, 利用 する 人 間 
に と っ て 使い や すい よう に する に は どう すべ 
きか を この 章 で 述べ よう . 





5 パソ コン を 人 に 近づけ よう 


パソ コン は , OA 機器 と し て 広く 社会 に ゆき 渡っ た が , よく 次 の よう な こと が 
きか れる .「 あ じ け な い 」 と か 「 使 い に く い 」 と . 今 まで 女性 事務 員 な ど が や っ 
て いた 計算 を コン ピュ ー タ に 置き 換え た の だ か ら あ る 程度 は し か た の な いこ と 
だ が , それ ら の 批判 に は 我々 プロ グラ ム 作 成 者 に も 責任 が ある . すなわち , 汎 
用 性 を ね ら っ た り 安 易 性 を 求め る あま り , プロ グラ ム を 使う 側 の 立場 に 立つ こ 
と を 忘れ て いた の で は な い だ ろ うか と いう 反省 で ある . 

た と えば , 一 つの 処理 が 終了 し た と き , 画面 に 次 の 二 つ の メッ セー ジ が 出力 
きれ た と する と , どちら が 人 々 に 和らぎ を 与え る だ ろう か ? 





END 御 苦労 様 で て し た 





も ちろ ん ケー スパ イケ ー ス で どちら が 良い と も いえ な い が , 明らか に 右 の 方 
が ユー ザ に 安らぎ を 与え る で あろ う . 

また 入力 要求 を する と き に も , 単に INPUT 命令 だ け を 用 いた の で は 画面 に 
“3” マー ク が 出力 され る だ け で デー タ を 要求 し て いる と いう 気分 を 起こ きせ 
な い . そこ て 入力 要求 文 (プロ ンプ ト 文 ) を プリ ンク (点滅 ) させ る こと で 入 
力 要 求 を ? マー ク よ りさ ら に 強く 要求 する 。 と いっ た 配慮 も 大 切 で ある (45 節 
参照 ). 





ピン 


名 前 =? ーー 名 前 =7 ーー 














さら に テキ スト を 色分け し , 入力 要求 文 は 赤 , 使い 方 の 説明 は 青 . プロ グラ 
ム の 出す 警告 等 は 黄色 な ど と する と 一 層 パ ソコ ン が 人 に 近づく (た だ し , 色 は 
多用 し 過ぎ る と か えっ て 見 に くく な る ). 

以上 は 入力 要求 の 出し 方 を 例 に 上 げた が , 画面 全体 の 配置 に つい て も デー タ 
量 が 多い と き に は で きる だ け テ ー ブ ル 化す る と いう 心配 り が 大 切 で ある (も ち 
ろ ん 常 に と いう 訳 で は な い が )。 次 の 入力 例 を 見 て みよ う . 





























前 =? ニヤ マダ タロ ウ 名 前 | rv タ 2 ロウ 
生年 月 日 年 =? 32 生年 月 日 | 年 32 

月 10 

日 14 
本 籍 コー ド =04 本 締 コ ー ド 04 














どちら が 使い や すい か は 一 目 瞭 然 で あろ う . 
プロ グラ ム が 発する メッ セー ジ に つい て も 同様 で ある .、 た と えば 入力 エラ ー 
が あっ た と き に た だ 単に "エラー" と 表示 する より も , その メッ セー ジ と と も 
に ブザー を 鳴ら す と いう 心配 り が 大 切 で ある . 特に 重大 な エラ ー や 緊急 に 入力 
を 要求 する と き に ブザー を 細か く 鳴 ら す と 。 プロ グラ ム の 利用 者 は どん な 画面 
上 の メッ セー ジ よ り も は る か に 強く その 緊急 性 を 解す る も の で ある . 

この よう に , 多少 の 努力 を 払う こと で パソ コン は 非常 に 生き 生き と し た 道具 
に 変身 し て くれ る . 我々 は で き う る 限り パソ コン を 人 間 的 な も の に し た て る よ 
う 奉 力 せ ね ば な ら な いで あろ う . 





ちょ っ と し た 配慮 用 いて パソ コン を 温か み の あ る も の に し よう 





ピコ BASIC に エラ ー メ ッ セ 
ー ジ を 出さ せる な 


コン ピュ ー タ の こと を よく 知ら な い 人 が , オペ レー タ と し て パソ コン の 前 に 
座り , 我々 の 作成 し た プロ グラ ム を 利用 し て 計算 処理 を し て いる と 仮定 し よう . 
た と えば , 次 の よう な 入力 要求 を アデ ロ グラ ム が 出し た と する . 
従業 員 番号 王 ? 
この 入力 要求 に 対し て 。 オペレータ が 555 と 入れ る べき と ころ を 誤っ て 55A 
と 入力 し て し まっ た と する . この と き デ ィ ス プレ イ の 画面 上 に 次 の よう な メッ 
セー ジ が 出力 され た と する と 。 その BASIC を 何 も 知ら な い オ ペレ ー タ は 困 惑 
し て し まう で あろ う . 
従業 員 番号 =? 55A 
? Redo from start 
? 
また プロ グラ ム 中 に パグ が あり , 計算 処理 の 途中 で 
divided by 0 
と いう メッ セー ジ が 表示 され ,、 プ ログラム が 異常 終了 し た と する . 何 も 知ら な 
い オ ペレ ー タ は どう し て よい も の か と 戸惑う ば か り で ある . 
これ ら の 例 の よう に , プロ グラ ム を 実行 中 BASIC が エラ ー や 警告 の メッ セ 
ー ジ を 出力 する こと が ある が , 我々 は 極力 この よう な こと が な いよ う 注 意 せ ね 
ば な ら な い . 我々 が 作成 し た プロ グラ ム を 我々 自身 が 使う な ら と も か く , 他 の 
多く の 人 が 使う こと を 想定 する な ら , BASIC の 出力 する メッ セー ジ は 決し て 
分 か り 良い らち の で は な い . 
第 一 の 例 の 入力 要求 は 次 の よう に な され て いる . 
INPUT "従業 員 番 号 =" : NO 
NO は 従業 員 番号 が 入る 数 値 変数 で ある . 我々 は この 数 値 変数 を 文字 変数 に 
し て お か ね ば いけ な か っ た の で ある . すなわち 次 の よう に コー ディ ング すべ き 
で あっ た . 


Z0 





100 INPUT “従業 員 番号 =" : NOS 
110 NO=VALNO$) 
120 IF NO=0 THEN GOTO* ERRSUB 

ここ で ラベ ル * ERRSUB は 入力 エラ ー に 対処 する 処理 の 先頭 ラベ ル と する . 
この よう に 入力 変数 を 文字 変数 に する こと で , 誤っ た キー 操作 を し て も ほとん 
どの 場合 我々 の プロ グラ ム 内 で 責任 が と れ , BASIC が メッ セー ジ を 出す こ 
と を 回 避 で きる . 

第 2 の 例 の よう に プロ グラ ム 内 に バグ が あり , その た め に BASIC が エラ ー メ 
ッ セ ー ジ を 出す こと が ある が , これ を 回 避 す る に は 次 の よう に すれ ば よい . プ 
ログ ラム の 先頭 に 次 の 1 文 を 入れ て お く の で ある . 

ON ERROR GOTO* ERRSUB 

* ERRSUB と いう ラベ ル は エラ ー に 対処 する た め の 処 理 の 先頭 ラペル で あ 
る と する 。 この 一 文 を プロ グラ ム の 先頭 に 入れ る こと で 万 一 バグ な どの 理由 で 
プロ グラ ム に 異常 が 生じ て も , BASIC に 頼る こと な く 我 々 自ら の 責任 で その 
応 で きる の で ある .。 また , この エラ ー 処 理 ル ー チ ン に 次 の よう な メ 
ッ セ ー ジ を 出力 する 用 意 を し て お け ば 親切 で ある . 

1000 * ERRSUB 
1010 PRINT 専門 家 を お 呼び 下さ い !" 





この よう な メッ セー ジ を 出す こと で プロ グラ ム の 利用 者 は 安心 し て 対応 が と 
れ , また エラ ー の 現状 が 保存 され て いる の で 我々 プロ グラ ム 作 成 者 は すぐ に デ 
バッ グ が 可能 で ある . 


BASIC に メッ セー ジ を 出さ せ ず , 自分 で 責任 を と ろう . 
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Bi 入力 ミス は 日 常 茶 飯 事 


我々 が プロ グラ ム を 使う と き に , 一 番 疲れ る の が キー 操作 で あろ う . この 疲 
れる 原因 の 一 つ に “キー 操作 を 誤っ て は いけ な い " と いう 緊張 感 が ある . プロ 
グラ ム 設 計 者 は , し た が っ て 入力 に お いて この 緊張 感 か ら , プロ グラ ム 使 用 者 
(オペ レー タ ) を 解放 せ ね ば ぱ ば ならない, その た め に は “間違っ て も 大 丈夫 "と 
いう 安心 感 を 与え を る よう な プロ グラ ム で な けれ ば な ら な い . ちょ っ と し た キー 
イン ミス で プロ グラ ム が 異常 動作 を する よう で は 困り 物 で ある . 

ここ で は 入力 の た め の INPUT 命令 の 使い 方 を いく つか 列挙 し て みよ う . 
(1) INPUT 命令 の 右辺 に ある 入力 変数 は 文字 型 に する こと 

これ に つい て は 35 節 で 既に 述べ た . すなわち 

INPUT A 

と いう 命令 に 対し て 我々 が キー イン ミス を し , 文字 な どの 数 値 以 外 の キー を 押 
し た と する と , BASIC が 「Redo from start」 な ど と いう 警告 の メッ セー ジ を 
出し て し まう . それ で は プロ グラ ム ユ ー ザ が 困惑 し て し まう . 

(2) INPDUT 命令 の 右辺 に 複数 の 入力 変数 は 置か な い 

これ は , 次 の よう な 命令 の 記述 は や め よ う , と いう こと で ある . 

INPUT A$, B$, C$ 

この よう な 使い 方 を する と , 入力 変数 と 入力 個数 が 不一致 の と き BASIC は 
「Extra ignored」 と いっ た 和 警告 メッ セー ジ を 出力 する . それ で は 使い に くい . 
(⑬) 入力 桁 数 の チェ ッ ク を 

我々 は プロ グラ ム で 扱う デー タ の 桁 数 を 予想 し て その プロ グラ ム の 設計 を す 
る が , 入力 され る デー タ に つい て は その 桁 数 は まっ た く 予 想 で きる も の で は な 
い . た と えば , いま 考え て いる 計算 処理 で は 単 精度 計算 で 十分 で ある と 予想 し 
プロ グラ ミン グ し て も , INPUT 命令 で 入力 させ る 数 値 の 桁 数 は オペ レー タ の 
キー イン ミス に よっ て 予想 不能 で ある . し た が っ て , この よう な 場合 , INPUT 
命令 は 次 の よう に 用 いる べき で ある . 





ンコ 





300 INPUT AS 
310 IF LEN(A$)>6 THEN PRINT 入力 ミス ” : GOTO 300 


320 A 三 VAL(A$) 


LEN (AS) と は 六 字 変数 AS に 格納 され た 文字 デー タ の 長き (文字 数 ) を 値 
と し て も つ 関 数 で ある . 単 精度 で は 通常 6 桁 以 下 の 有 効 析 と な る か ら , 7 桁 以 上 
の 数 値 を 入力 され て も 正確 な デー タ 処 理 が で き な い . 行 番 号 310 は それ を チェ 
ッ ク し て いる . この よう に , どん な 長 さ の デー タ を 入力 し て も プロ グラ ム が 正 
常に 動く よう に 入力 段階 の チェ ッ ク を 厳し くし て お か ね ば な ら な い . 

(4) 入力 デー タ の 条件 を し っ か り 把 所 

次 の よう な コー ディ ング 例 を 考え て みよ う . 


500 INPUT K 
510 ON K GOSUB * KEISAN, * INSATU 


すなわち , 入力 され た 整数 K に 対し て , それ が 1 な ら 計算 ルーチン, 2 な ら 
ば 印刷 ルー チン に 制御 を 渡す 論理 と する . この と き , K は 明らか に 1, 2 以外 の 
数 値 を と ら な いと 了 予想 し て いる . し た が っ て これ は 次 の よう に コー ディ ング さ 
れる べき で ある . 

500 INPUT K$:K=VAL(K$) 
510 IF K<1 OR K>2 THEN PRINT “入力 ミス ” : GOTO 500 
520 IF K<>INT (K) THEN PRINT 入力 ミス ” : GOTO 500 


で 行 番 号 520 は 整数 か 小数 か の チェ ッ ク を し て いる . 
この 例 の よう に , 入力 され る べき デー タ の 性質 に つい て チェ ッ ク で きる と こ 
ろ は こと 細か に チェ ッ ク す べき で ある . 





入力 され た デー タ は 徹底 的 に 調べ よう . 
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4 メッ セー ジ は 日 本 語 で 


コン ピュ ー タ は 多く の エレ クト ロニ クス 製品 と 同様 発祥 地 が 欧米 で ある た め 。 
その 用 語 は ほとん ど が 英語 で ある . その た め に 英語 を 多用 する こと が コン ピュ 
ー タ の 本 質 で ある か の よう に 。 マ ニュ アル や ディ スプ レイ 画面 に 表示 する 文章 
を 英語 で 記述 する 人 が いる . 
パソ コン は 日 本 社会 の あら ゆる と ころ で 活用 され て いる . そし て 優れ た プロ 
グラ ム は あら ゆる 知識 層 の 人 々 に 使用 され る こと に な る . この と き , 英語 で 書 
か れ た コン ピュ ー タ メッ セー ジ を すら すら 読め な い 人 々 も 多く いる , と いう こ 
と に も 気 を つけ ね ば な ら な い . 
日 本 で 市 販 さ れ て いる パソ コン の ほとん どの 機種 に は 最低 カタ カナ を 使え る 
機能 だ つい て いる . 我々 は 英語 の キー ば か り に 頼ら ず , この 標準 的 に 備え られ 
て いる カタ カナ の キー を 利用 すべ き で ある ., た と えば 「 リ ター ン ・ キ ー を 押し 
て 下さ い 」 と いう 入力 要求 の メッ セー ジ (プロ ンプ ト 文 ) を 出力 する と き , 次 
の よう に コー ディ ング すべ き で は な い . 
270 INPUT “Type in RETURN key” :D$ 

せっ か く カ ナ キ ー が ある の だ か ら 。 次 の よう に 記述 すべ き で ある . 
270 INPUT “RETURN キー ラオ シテ クダ サイ ” : D$ 

も し 漢字 ROM が 備わっ て いる な ら ば まさ に 原文 通り 次 の よう に すべ き で ある . 
270 INPUT “RETURN キー を 押し て 下さ い " : DS$ 

パソ コン は 計算 処理 の 道具 で ある . その 道具 に 利用 者 が 近づく 努力 を する の 
で は な く , 利用 者 に その 道具 が 近づく よう に すべ き で ある . 我々 は プロ グラ ム 
を 作成 する と き , この 点 に 十分 注意 せ ね ば な ら な い . 


メッ セー ジ は 分 か りや すい 日本 語 で 表示 し よう . 


と の 4 


う 38 





りつ で も 中 断 だ で きる よう に 


科学 計算 や ファ イル 処理 を 伴う 計算 処 理 な ど は どう し て も 時 間 を 費やす も の 
で ある . その 計算 途上 急用 の た め 中 断 せ ね ば な ら な いこ と が 実際 の 運用 上 よく 
ある . そこ で 我々 は 長い 処理 時 間 を 要する プロ グラ ム に お いて は 処理 途中 で い 
つ で も 中 断 で きる 機能 を 用 意 せ ね ば な ら な い 

計算 途上 の 中 断 を 可能 に する と は 次 の 二 つ の 意味 に 解釈 され る . 

(1) 再度 計算 させ よう と する と き 。 その 中 断 の 時 点 か ら 出 発 で きる . 
(2) 再度 計算 させ よう と する と き , 新た に 計算 前 の 状態 か ら 出発 する . 

この (1) ま た は (2) の 意味 の 中 断 を 完全 に サポ ー ト する の は 非常 に 大 変 な 場合 が 
多い . その 実現 に つい て は 各 計算 処理 に つい て ケー スバ イケ ー ス で 検討 する し 
か な い が , この 節 で は いか に プロ グラ ム ユ ー ザ に その 中 断 機能 を 提供 する の か 
を 示 そ う . 
通常 我々 は 次 の BASIC 命令 を 用 いて ユー ザ に 中 断 機能 を 提供 する . 


140 ON STOP GOSUB 2000 
280 STOP ON 


2000 " stop process routine 


2650 RETURN 

すなわち , STOP キー を 押す こと で ユー ザ は 処理 を 中 断 で きる よう に する の 
で ある . 我々 プロ グラ ム 作 成 者 は スト ッ プ キー 割り 込み で 飛ん だ 先 の サブ ルー 
チン (スト ッ プ 処理 ルー チン ) で 中 断 処理 (ユー ザ が ここ で 処理 を 中 断 し て フ 
ァイル 等 が 破壊 され な いよ うな 処理 な ど ) を し , 制御 を メイ ン ル ー チ ン に 戻す 
この よう な 論理 で 中 断 機能 を 提供 する こと で , プロ グラ ム は 非常 に 使い や すい 
も の に な る の で ある 。. 

急用 の と き 席 を は ず せ る よう な 構造 を プロ グラ ム に 与え よう 
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2 マニ ュ ア ル を 読ま ぜ ず 画面 
で て 語れ 


人 に 利用 され る プロ グラ ム を 作っ た と き に は 。 その 使い 方 を 示す 解説 (マニ 
ュ ア ル ) が 必ず 用 意 さ れ ね ば な ら な い (9 節 参 照 )、 し か し プロ グラ ム の 利用 者 
に と っ て , その マニ ュ ア ル を 読み な が ら プ ログ ラム を 運用 し て 行く の は 本 当 に 
苦痛 で ある . いく ら 親 切な マニ ュ ア ル を 作っ て も , ディ スプ レイ と マニ ュ ア ル 
と を 見 な が ら 作 業 を する の は 人 間 に と っ て 不 自然 な の で ある . 

我々 は プロ グラ ム を 作成 する 際 , で きる だ け 画 面 を 見 る だ け で 作業 が 進め ら 
れる よう に 丁寧 な 解説 を ディ スプ レイ に 表示 すべ き で ある . た と えば 次 の 左右 
二 つ の 画面 を 見 て みよ う . 





(1) CALCULATION 
(2) PRINT OUT 
(3) DATA-INPUT 


(|) 計算 を する 
(2) 印刷 を する 
(3) デー タ を 入力 する 


HICH? 
NHI6 (から (3) の 番号 を 入力 し て 下さ い ? 





どちら の 方 が 使い や すい か は 一 目 瞭 然 で あろ う . いく らし っ か り し た マニ ュ 
アル が 完備 し て いて も 左 の 画面 の よう な プロ グラ ム を 作っ て は いけ な い の で あ 
る . 画面 が 語る 部 分 は 大 な の で ある 

親切 な 画面 を つく る と き に は 次 の BASIC 命令 を 用 いる と 便利 で ある . 

ON HELP GOSUB 文 番号 

これ は 以後 HELP ON と いう 命令 を 実行 する と, HELP キー が 押さ れ た な 
ら GOSUB の 次 の 文 番 号 に 分 岐 させ る 命令 で ある . 我々 は この 文 番 号 か ら 始ま 
る サブ ルー チン に 操作 手順 を 示す 画面 を 作成 する 処理 を 用 意 し て お く の で ある . 
こう する こと で プロ グラ ム ユ ー ザ が 作業 手順 が 不明 に な っ た と き , 単に HELP 
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キー を 押す だ け て 次 の 作業 の し か た が 分 か る の で ある . いち いち マニ ュ ア ル を 
調べ る より も は る か に 効率 が よい こと は 明らか で あろ う . 


1400 ON HELP GOSUB 5000 
1870 STOP ON 


5000 ′ HELP キ ー ニ ヨ ル ワリ コミ 





画面 に 作業 手順 を 解説 する 処理 











5550 RETURN 


画面 4 見 た だ け で 作業 手順 が 分 か る よう な プロ グラ ム を 作ろ う . 





に 請 BASrC で 憶え る 特 丈 キ ー 


38 節 の STOP キー や 本 節 の HELP キー の よう に , 特別 な キー と し て 定 
義 で きる キー は 他 に FUNCTION キー だ け で ある . し か し , これ ら の キー 
を 上 手 に 使う こと で , プロ グラ ム は 非常 に 使い や すい も の に 変容 し て ゆく . 
本 節 の HELP キー の 使い 方 も 良い 例 で あろ う . 
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7 プリ ンタ の 紙 詰まり 対策 を 


パソ コン の シス テム は 。 非 常に 信頼 性 の 高い も の で ある . ハー ドウ ェ ア の 障 
害 な ど は あま り 気 に し な いで すむ 。 その 信頼 で きる シス テム の 中 に あっ て 唯一 
信頼 で き な い も の が プリ ンタ で ある . 我々 は し ば し ば プリ ンタ に 出力 中 , 紙 詰 
まり に 出会う 、 これ は コン ピュ ー タ シス テム の 中 で 一 番 物理 的 な 動き を する の 
が プリ ンタ で ある か ら で あ る . し た が っ て 我々 は プロ グラ ム を 作成 する と き 。 
プリ ンタ の 紙 詰まり 対策 を 考慮 し て お か な けれ ば な ら な い 。 

この 紙 詰まり 対策 は 大 変 p ず か し い . 紙 詰まり を 起こ し た すぐ 直後 に プリ ン 
タ が その こと を CPU に 知ら せ て くれ れ ば よい の だ が 現実 に は そう は な っ て い 
な い . し た が っ て 多く の 場合 紙 詰まり が 発生 し た と き 再 び 最 初 か ら 印刷 し 直さ 
ね ば な ら な いこ と に な る 。 

紙 詰まり 対策 と し て は 次 の 二 つ の 対策 が 考え られ る だ ろう . 

(1) 正常 に 打ち 出し た と ころ を 指定 し , その 次 か ら 出 力 で きる よう に プ 
ログ ラム を 設計 する . 

(2) 出力 内 容 を ディ スク に し まっ て お き 。 何 度 で も そこ か ら は き 出 せる 
よう に し て お く 。 

(1) を 実現 する の は (2) よ り も 大 変 で て ある. し か し (1) を 可能 に する に は (2) を 前 提 
と する 場合 が 多い . し た が っ て (2) は 必ず 守っ て お か ね ば な ら な い 対 策 で あろ う . 

(2) の 意味 は , 計算 を し な が ら 印刷 する の で は な く , 計算 結果 は すべ て ディ ス 
ク に 保存 し , 計算 が 終了 し た ら お も むろ に 印刷 を 始め よ , と いう こと で ある . 
すなわち 次 の よう な フロ ー チ ャ ー ト に お いて は 右 の 論理 を 採用 せよ と いう こと 
で ある . 

こう する こと で , 万 一 紙 詰まり が 発生 し て も 計算 処理 は 飛ば し て 印刷 だ け を 
繰り 返 ナ だ け で すむ と いう メリ ッ ト が 生じ る の で ある . 

(2) の 対策 が と られ て いれ ば , (1) の 対策 を 実行 する こと は 容易 で ある ,. ディ ス 
ク に た め ら れ た 処理 結果 に 番号 を つけ て お き , その 番号 を キー ボー ド か ら 入 力 
する こと に よっ て 指定 され た 処理 結果 を プリ ンタ に 印刷 させ る こと が で きる の 
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で ある . 

1) の 対策 が と られ る こと は 理想 だ が , 我々 は 最低 (2) の 対策 を 念頭 に お いて プ 
ログ ラム を 設計 すべ き で ある . プリ ンタ へ の 出力 は コン ピュ ー タ 業務 の 中 で 一 
番 時 間 を くう と ころ で ある が その 際 , 一 時 も プリ ンタ か ら 離 れず に 紙 詰まり 
が 発生 し な いよ う 監 視 し て いな けれ ば な ら な いよ うな 設計 を すべ き で は な い . 


紙 詰まり が 起き て も 利用 者 が 動揺 し な いよ うな 対策 を と ろう . 





パソ コン の プリ ンタ 





パソ コン の プリ ンタ は 安価 な も の が 多く 紙 詰まり は 不可 避 的 で ある . ( 汎 
用 コン ピュ ー タ 用 の ライ ンプ リン タ も よく 紙 詰 まり を 起こ す が ! ) し た が 
っ て 我々 の 対策 と し て あま り 長 いひ と まとまり の デー タ を プリ ンタ に 出力 
きせ な いこ と で ある . 全部 を 出力 し な けれ ば 意味 を も た な いよ うな リス ト 
出力 は で きる だ け 短 くせ よ , と いう こと で ある .。 この よう な 自衛 手段 を と 
ら な いと スト レス が た まっ て し まう こと が 多い 
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一 揚 作 は で きる だ け み なく 


コン ピュ ー タ 業務 で 一 番 苦労 する の が キー 操作 で ある . また 誤り が 一 番 多 く 
発生 する の も , この 操作 に 関係 する と ころ で ある . し た が っ て , この キー 提 作 
を いか に 容易 に する か が 優れ た プロ グラ ム の 一 つの 条件 で ある . 

キー 操作 を 簡単 に する 方 法 と し て 一 番 有効 な 方 法 は , キー イン の 回 数 を 減ら 
すこ と で ある . すなわち キー を た た く 回 数 が 減ら され れ ば キー 操作 の 時 間 は 短 
縮 さ れ , また その 分 誤り が 少な く な る は ず で ある . 

キー 操作 の 簡略 化 に 一 番 重要 な の は , 設計 段階 に お ける 入力 デー タ の 整理 で 
ある . どの デー タ が 不可 欠 で 。 ど の デー タ が 入力 不要 か を , し っ か り ま と め た 
上 で プロ グラ ミン グ す る こと が 基本 と な る の で ある . た と えば ある 会 社 の 男女 
の 従業 員 と 総社 員数 を 入力 する の に 

100 INPUT “man number=*": MN 

110 INPUT “woman number=* : WN 

120 INPUT “total number=* : TN 
と コー ディ ング し て は いけ な い の で ある . 当然 行 番号 120 は 次 の よう に すべ き 
で ある . 

120 TN=MN+WN 

(も ちろ ん , チェ ッ ク の た め に 上 記 の よう な コー ディ ング を する 場合 が ある 
が .) こう する こと で 一 回 入力 回 数 が 減る . これ は お お げ さ な 例 で ある が , 主 
旨 は 理解 され る で あろ う . 

キー 操作 に お いて 次 の よう な 工夫 も 大 切 で ある . 入力 する 文字 が 1 文字 と 決 
まっ て いる 場合 , 次 の よう に コー ディ ング する の は 不 親切 で ある . 

270 INPUT “ALPHABET=^ : CS$ 

これ は 一 つの 英文 字 を 要求 する 命令 た する. この と き 次 の よう な キー 操作 と 
な る . 
< 例 > | A| | RETURN | 
すなわち 二 つ の キー を 押す こと に な る . この よう な と き に は 次 の よう な コー デ 
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ィング を 勧め る . 
270 PRINT "ALPHABET= ?7 
280 C$=INKEY$ :IF C$="” THEN 280 
こう する こと で キー 操作 は | A | と いう キー を 押す だ け で すむ よう に な る . た 
と えば 小学 校 の 成績 (5 段階 ) を 入力 する プロ グラ ム な ど で は この 技法 を 用 いる 
こと で 数 千 回 の 打鍵 が 省略 で きる の で ある . 
入力 の 文字 数 が 一 般 的 に N 個 と 決ま っ て いる 場合 (N=2), 上 の 方 法 の 拡張 
と し て 次 の 命令 を 用 いる こと を 勧め る . 
INPUTS(N) 
た と えば 6 桁 の 従業 員 番 号 を 入力 する と き 
270 INPUT “従業 員 番号 =* : NO 
と する の で は な く , 次 の よう に する こと を 勧め る の で ある . 
270 PRINT "従業 員 番 号 =*: 
280 N$=INPUT$(6) 
290 NO=VAL(N$) 
こう する こと で INKEY$ と 同様 。RETURN の 打鍵 が 省け る の で ある . 
以上 の 例 の よう に , ちょ っ と し た 心配 り で 入力 回 数 は ずい ぶん 減り , 入力 操 
作 が 簡単 に な る こと を 銘 記 し て も らい た い . 














キー 操作 が 少な く な る よう プロ グラ ム が 面倒 を 見 よう . 
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RUN 病 令 も 知ら な 人 
へ の 配慮 を 


パソ コン は , 昨今 電卓 並み に 利用 され つつ ある . 社会 や 学校 。 研 究 機関 の す 
みず み に 行き 渡っ て いる . この よう な 中 で パソ コン を 利用 する 人 に パソ コン の 
利用 方 法 に つい て の 基礎 知識 を 期待 する こと は 不可 能 に な っ て きた . か つて は 
「 マ ニュ アル を 読め 」 で すん だ こと が 今 で は 通用 し な く な っ て いる . 

大 型 コ ンピュータ に は 専門 の オペ レー タ が つい て いる 。 し か し パソ コン に は 
その よう な 人 が いる は ず も な い . 電源 を 入れ , ディ スク を セッ ト す る だ け で も 
や っ と と いう 人 を 対象 に プロ グラ ム を 作る こと が 大 切 で ある . その た め に は エ 
ラー 対策 を し っ か り し , 画面 へ の メ ッ セ ー ジ を 丁寧 に する と いう こと が 必要 で 
あり , 誰 に で も わか る マニ ュ ア ル を 完備 する こと も 重要 で ある . これ ら の こと 
に つい て は 他 の 節 に 譲る こと と し て , ここ で は LOAD, RUN と いう コマ ンド も 
知ら な い 人 へ の 配慮 と し て オー ト ・ ス ター ト 機 能 に つい て 触れ よう . 

この オー ト ・ ス ター ト 機 能 と は , CPU 本 体 に 電源 を 入れ る と 既に セッ ト さ れ 
て いる ディ スク 上 の プロ グラ ム を CPU が 自動 的 に 読み に いく 機能 の こと で あ 
る . そし て 読み 終わ っ た プロ グラ ム は 自動 的 に RUN され る よう に な っ て いる . 
この オー ト ・ ス ター ト は , ディ スク 上 に ある 管理 チー プル の 一 部 分 を 書き 換え 
る こと で 実現 で きる が , パソ コン の 多く に は それ が ユー ティ リティ ー プ ログ ラ 
ム と し て 備え られ て いる . その 動か し 方 に つい て は マニ ュ ア ル 類 を 参照 し て も 
らい た い 。 

この オー ト ・ ス ター ト 機 能 で 代表 され る よう に , 我々 は で きる 限り , パ ソコ 
ン に つい て の 操作 か ら ユ ー ザ が 解放 され る よう に 準備 と そし て お くべ き で ある . 
そし て まっ た く の パ ソコ ン 音 痴 の 人 も , パソ コン が 利用 で きる よう 配慮 し て お 
くべ き で ある 。. 


シス テム 操作 (LOAD, RUN な ど ) か ら , 利用 者 が 解放 され る よう 心配 り を 
し よう . 
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2 黙 っ て 待つ 時 間 は 
せ /) ぜ 10 秒 


コン ピュ ー タ の 計算 処理 の 速度 は , 我々 に 比べ て 非常 に 速 ょ 。 し か し , いか 
に コン ピュ ー タ で も あら ゆる 処理 を 瞬時 に 終わ ら せ る こと は で き な い . 特に フ 
ァイル 処理 や ソー ティ ング 処理 で は , 我々 は よく 待た され る . コン ピュ ー タ の 
計算 途中 で は コン ピュ ー タ は 黙っ て いる .、 し た が っ て 。 プロ グラ ム の 構造 を 知 
ら ず た だ わけ も 分 か ら ず に 待た され て いる プロ グラ ム ・ ユ ー ザ は 不安 に な り 。 
また イラ イラ し て し まう . 

我々 が プロ グラ ミン グ す る 際 , 常に 処理 効率 と いう も の を 考え る べき で ある 
(第 6 章 参照 ). 特に BASIC に お いて は その 言語 の 特性 上 , ちょ っ と し た 工夫 
が 多大 な スピ ー ド アッ プ に つなが る の で ある . また , プロ グラ ミン グ 上 有名 な 
計算 技法 (ソー ティ ング な ど . 90, 91 節 参照 ) を し っ か り マ スタ ー し て お くべ 
き で ある . そう する こと に よっ て 待ち 時 間 は か な り 短 縮 さ れる . 

我々 は 。 ここ で どう し て も 待た せる こと を 人 避 け られ な いと き に 配慮 すべ き プ 
ログ ラマ の エチ ケッ ト を 述べ よう . す な わ ち 10 秒 以上 の 計算 処理 また は ファ イ 
ル 処 理 に プロ グラ ム が 突入 する と き ,。 プ ログ ラマ は あら か じ め デ ィ ス プレ イ に 
その 旨 を 表示 する の で ある . プロ グラ マ は 時 間 の か か る 場所 を あら か じ め 予 想 
する こと が 可能 で ある か ら , これ くら い の 心 配り は 容易 で ある . 

この よう な メッ セー され る 
と ,「 で は お 茶 で も 飲ん で こよ うか な 」 
と いう よう に 利用 者 は 安心 する も の 
で ある . コ ンピュータ だ けが 必死 に 計 
算 を し て , 利用 者 は わけ も 分 か ら ず に 
た だ 待た され て いる 状態 は 絶対 に 回 
避 す べき で ある . 









コン ピュ ー タ が 計算 中 で す . 





あと 5 分 程 お 待ち 下さ い . 





待た せる と き に は その 理由 を 示す か , 待ち 時 間 の 予想 を 示す べき で ある . 
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MM チェ ッ ク リ スト の 準備 を 


た くさ ん の デー タ 入 力 を 伴う パソ コン 業務 に お いて , 常に 心配 な の が 入力 ミ 
ス で ある . し た が っ て 。 プロ グラ ム は 二 重 三重 に デー タ を チェ ッ ク す べき で あ 
り (33 節 参照 )、 ま た いつ で も デー タ 訂 正 が で きる よう に すべ き で ある (8 節 参 
照 )、 し か し , この よう な チェ ッ ク ・ 訂 正 を 行っ て も 。 最後 の より どこ ろ と な る 
の が , プリ ンタ で 出力 され た ファ イル の 中 味 の コピ ー (ハー ドコ ピー) で ある . 
画面 上 で 何 回 チェ ッ ク し て も 我々 の 不安 は 消え を え ない. しかし, プリ ンタ か ら 出 
力 さ れ た 入力 デー タ の リス ト を 。 元 本 と つき 合わ せれ ば 。 非常 に 安心 で きる の 
で ある . デー タ 入 力 の ルー チン に は 。 必ず それ と 並行 し て 入力 デー タ の 一 覧 表 
を 作成 する ルー チン を 並 設 し て お か ね ば な ら な い の で ある . 

この 一 覧 表 作 成 ル シー チン で 出力 され る デー タ の 形式 は 簡素 で よい . ダン プリ 
スト と 同じ 発想 で 作ら れる も の で ある か ら , な る べく 出力 スピ ー ド が 速く な る 
よう に 行間 を つめ て , すき 間 を で きる だ け 少 な くす る よう に する . 次 の リス ト 
は その 形式 の 一 例 で ある . 





福 貞 番号 総 支 給 閣 税金 社会 保険 組合 芝 
601655 417.247 24.744 15.743 4.700 
644111 376,697 29.713 14,.518 4.500 
654330 355.473 18.857 14.315 4.500 
654115 367.865 20.013 14.440 4.500 


734196 285.618 15.117 12.715 100 
756773 271.093 14.883 12.505 4.100 
784350 195.036 10.117 8.307 3.500 
804464 222.769 12.315 10.318 3.700 





当然 この よう な 形 は 実際 に 人 に 渡し た りす る 出力 形式 と 異な る . 給料 明細 , 
住所 案内 等 で 人 々 に 渡す オリ スト は 各 デ ー タ に つい て も っ と 説明 を 丁寧 に し な 
けれ ば な ら な い . ここ で いう チェ ッ ク リ スト と は デー タス 入力 者 が 入力 し た 内 容 
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を その 場 で 知り た いと き に , で き うる 限り 整理 され た 形 で 迅速 に 出力 され る フ 

ァイル 内 容 の リス ト の こと で ある . 

以下 に この チェ ッ ク リ スト の 要件 を まとめ て みよ う . 
(1) 素 速く 出力 で きる こと 
(2) 情報 を コー ド 化 し 整理 する こと . (た と えば 男女 の 区 別 な が ど は 0 と 1 
で すむ ) 
(3) 不要 な 情報 は 出力 し な い 
(4) 全体 と し て 見 や すい こと 

この リス ト を 作成 する た め の モ ジュ ー ル は 全体 の 中 で 次 の よう な 位置 づけ が 








な され る で あろ う . 
T 入 
カ 
ル ル タ カレ 
1 | 3 
す 天 カ タル 
lg| 1f| | 
了 ッ 














デー タ 入 力 者 に , 入力 し た デー タ の 内 容 の 一 覧 表 が すぐ と れる よう に 配慮 し 
よう . 








チェ ッ ク リ スト と 秘密 保護 


本 節 の よう な 機能 を プロ グラ ム に 組み 込む と き , それ が 誰 に で も 利用 さ 
れる よう で は 困る . 多く の 場合 入力 し た デー タ は 秘密 に し て お きた いも 
の で ある . し た が っ て ,。 パス ワー ド 等 (95 節 参照 ) を 準備 し , し っ か り し 
た 機密 保護 を サポ ー ト せ ね ば な ら な い . 
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BASIC 病 令 活用 法 





BASIC 命令 の 便利 で 有名 な 使い 方 を ここ 
で 示 そ う . 

BASIC は 高級 な 言語 で あり , 少し 工夫 す 
る こと で 色々 と 有用 な 使用 方 法 が 見 い 出さ れ 
る 。 また それ ら の 工夫 で プロ グラ ム が 生き 生 
き し た も の に も な っ て くる の で ある . 本 節 で 
は プロ グラ ミン グ 途 上 し ば し ば 用 いら れる 
BASIC 命令 の 活用 法 を 示 そ う . 





文字 の 点滅 で 入力 要求 


オペ レー タ に 入力 要求 を 出す と き , た と えば 
社員 番号 =? 
と いう 形 で , た だ 単に ? マー ク だ け で 画面 上 に 入力 要求 を 出し た の で は 。 オ ペ 
レー タ は あま り 入 力 し よう と いう 気 に は な れ な い だ ろ う 。 し か し ,。 も し この 入 
力 要求 の メッ セー ジ が 点滅 し た と する と , オペ レー タ は 強く それ に 関心 を 奪わ 
れる こと に な る だ ろう ! 
= で リグ ンー 
一 社員 番号 = ? 一 
オペ レー タ は この 点滅 で パソ コン が 何 か デー タ を 求め て いる こと を すぐ に 感 
じ と る こと が で きる . この 入力 要求 メッ セー ジ の 点 減 に つい て NEC PC-9801 
に つい て 説明 し よう . 
まず 点滅 させ な い 通常 の 方 法 で は 次 の 命令 が 考え られ る . 
INPUT “社員 番号 =* : NO ( 点 減 し な い ) 
これ に 対し て 点滅 させ る に は 次 の よう に する (画面 は 白黒 モー ド で 使用 され 
て いる と する ). 
300 COLOR 2 
310 PRINT * 社 員 番号 =^: 
320 COLOR0 
330 INPUT NO 
すなわち , 白黒 モー ド で COLOR 文 を 上 記 の よう に 使う と , 上 手 に 画面 上 の 
文字 を 点滅 (プリ ンク ) させ る こと が で きる . 
し この 4 ステ ッ プ の プロ グラ ム で は 。 入力 終了 後 も 入力 要求 の メッ セー 
ジ は チカ チカ と 点滅 し 。 どう も 美観 を そ を こね て し まう . その た め に 。 入力 後に 
は 通常 点滅 を 中 止 さ せる . それ が 以下 の プロ グラ ム で ある . 
300 COLOR 2 
310 LOCATE AB : PRINT “社員 番号 : 
320 COLOR0 
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330 INPUT NO 
340 LOCATE AB : PRINT * 社 員 番号 ? 

すなわち , ブリ ンク 解除 (COLOR 0) 後 , 再び 入力 要求 の メッ セー ジ を 上 
書き する の で ある . 

画面 上 で 入力 要求 の メッセ ー ジ を ブリ ンク させ れ ば 入力 要求 の ? マー タク は 不 
要 に な る . また , な い 方 が 美しい . ? マー ク の と り 方 に つい て は 48 節 を 見 て も 
らい た い . 

パソ コン は 画面 を 通し て オペ レー タ と 意志 を 通じ 合う も の で ある . し た が っ 
て , で きる だ け そ の 疎 通 を “人 間 的 " に 分 か りや すく すべ き で ある . この 点滅 
(プリ ンク ) の 工夫 も その 一 つの 例 で ある . 


文字 の 点 減 な ど を 用 いて パソ コン を 人 間 に 近 づけ よう . 





白黒 の 画面 上 で , ある 特定 の 文字 列 を 強調 する 方 法 と し て , プリ ンク き 
せる こと 以外 に , 文字 の リバ パー ス (反転 ) と いう 方 法 が ある . これ は 文字 
の 白 と パッ ク グ ラン ド の 黒 を 逆転 させ る 方 法 で ある . PC-8801/9801 で は 
これ を 次 の 指定 で 行う こと が で きる 。. 

COLOR 4 

も し , も っ と 強調 し た いと 思う と き に は リバ パース し て プリ ンク させ れ ば 
その 効果 は 大 で ある . これ も NEC PC-8801/9801 で は 次 の よう に サポ ー ト 
し て いる 。. 

COLOR 6 
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5 文字 の 色 で 意味 を 区 別 


我々 は , 常に プロ グラ ム 利 用 者 が 使い や すい よう 心がけ て プロ グラ ミン グ す 
べき で ある . 画面 を 見 た と き に , すべ て 同一 色 の 文字 で テキ スト が 記述 され て 
いる と き ( 特 に 多く の 行 が 並ん で いる と き )。 非常 に 見 に ぐい こと は 明らか で あ 
る . そこ で テキ スト の 色 を 区 別 し , 色 に よっ て 意味 を 違え る よう に する こと は 。 
使い や すさ を 向上 させ る で あろ う . この や り 方 を NEC PC-8801/9801 で 説明 し 
て みよ う . 

まず 次 の 画面 を 見 よう . 











[数 学 の 学習 ] 
2 次 関数 y ニ ax^2 十 bx 填 c の グラ フ 
a, b, c の 値 を 入力 し な さい . 
a=? 0 
b=? 2 
c デ ? 3 
ac は 条件 に 合い ませ ん . も う 一 度 入力 し な さい . 
aー? 











これ は CAI (コン ピュ ー タ に よる 教育 ) の 画面 の 一 例 だ が , 単色 の 画面 で は 
何 か 誕 え る と ころ が 少な いで あろ う . そこ で 通常 の メッ セー ジ は 白 で 。 入力 要 
求 は 青 で , そし て プロ グラ ム の 発する 警告 は で 表示 する こと に し ょ う . 上 例 
の 画面 を この よう な カラ ー 画 面 に する た め の BASIC 命令 の 流れ を 次 に 追っ て 
みよ う . 





1450 CONSOLE,,,1 


1690 CL1 ニ 7 : CL2 ニ 1 : CL3 ニ 2 
1700 COLOR CL1 
80 





1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 


2500 


2610 
2620 
2730 
2740 


PRINT ” [数 学 の 学習 ]? 

PRINT “2 次 関数 y ニ ax へ 2 十 bxTc の グラ フ * 
PRINT "a, bc の 値 を 入力 し な さい ” 

COLOR CL2 

INPUT “a=”:A 

INPUT *b=* : B 

INPUT “ciC 

IF A ニ 0 THEN * REINP 


* REINP 


COLOR CL3 

PRINT “a 三 0 は 条件 に 合い ませ ん . も う 一 度 入力 し な さい ” 
COLOR CL2 

INPUT "a= ニ 7 A 


行 番号 1450 は チキ スト 画面 を カラ ー モ ー ド に し て いる . 行 番号 1700, 1740, 
2610, 2730 は これ 以降 に 画面 に 文字 を 書く 際 の その 文字 の 色 を 指定 し て いる . 


彰 コ 
赤 …2 
自 …7 


実際 に カラ ー 画 面 を 見 る と その 効果 は 大 きい こと が 分 か る , ぜひ 多用 し て も 


らい た い . 


た だ し , あま り 色 を 多く 用 いす ぎる と か えっ て 画面 が 見 に くく な っ 


て し まう . 経験 上 3 色 位 が ちょ うど よい と 思わ れる . 


豊富 な カラ ー 機 能 を 用 いて , 画面 4 見 や すく する 努力 を し よう . 
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2 暑 証 番号 (パス ワー ド ) 
を 懇 す に は 


ファ イル 処理 に お いて は ,。 その 中 味 の 秘密 の 保護 は 重要 で ある . そこ で よく 
用 いら れる の が 暗証 番号 (パス ワー ド ) で ある . この 暗証 番号 は 人 に 見 られ て 
は 困る わけ で , 通常 の INPUT 命令 で 入力 を 要求 する と 画面 に その 番号 が 表示 
され 不都合 で ある . ここ で は 画面 に 入力 文字 を 表示 させ な い 二 つの 方 法 を 述べ 
よう . (NEC PC-8801/9801 に 準じ て いる .) 

ー つ の 方 法 は , INPUT$ 命 令 と いう BASIC 関数 を 用 いる こと で ある 。. 


2700 PRINT * 暗 証 を 入力 し て 下さ い " : 
2710 ClPH$ ニ INPUTS (4④) 

2720 IF ClPHS く >ID$ THEN 2700 
2730 PRINT * 受 け 付け まし た * 


ここ で ID$ に は 正しい 使用 者 の 暗証 
が 入っ て いる と する . また 暗証 番号 は 
4 桁 と する . この コー ディ ング に 対応 暗証 を 入れ て 下さ い 
する 画面 は 次 の よう に な る . 受け 付け まし た 
右 図 の よう に 暗証 は 画面 に 出さ れ な い . 

INPUT$ は キー を 押し て も その 文字 
は 出力 され な い が , カー ソル も また 移動 し な い . し た が っ て 入力 し た と いう 気 
分 を ユー ザ に 与え な い の が 難点 で ある . これ に 対し て , 第 二 の 方 法 と し て これ 
か ら 説 明 する 方 法 は , カー ソル が 動く と いう メリ ッ ト が ある . この 方 法 を 示 そ 


う 。 








1400 CONSoLE.…0 

2700 PRINT "暗証 を 入力 し て 下さ い " : 
2710 COLOR1 

2720 INPUT CIPHS 
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2730 IF CIPH$ く >ID$ THEN 2700 
2740 COLOR5 
2750 PRINT “受け 付け まし た ”* 


この コー デン グ は 前 期 の INPUT$ を 用 いる 方 法 と 同じ 画面 に な る が , た だ 違 
う の は 暗証 番号 を 入れ た と き に カー ソル が 移動 する こと , お よび 暗証 番号 を 入 
力 し 終わ っ た ら RETURN キー を 押す こと , で ある . NEC PC-8801/9801 は 白 
黒 モ ー ド で カラ ー 指 定 を 行う と この よう な こと を 可能 に させ て くれ る . 

パソ コン が 我々 の 日 々 の 生活 に 密接 に 関与 し て くれ ば くる ほど 秘密 保護 の 対 
策 は 重要 性 を 増し て くる .。 この 節 で 紹介 し た 暗証 番号 の 隠し 方 は 、 その 対策 の 
中 で 最も 基本 的 な も の の 一 つ で ある が , パソ コン プロ グラ ム の 設計 に は 、 ぜひ 
と も この よう な 配慮 を し て ゆく べき で あろ う . 


パソ コン に お いて , 今後 は 秘密 保護 が 重要 と な る . 





同軸 軒 リバ ー ス シー クレ ッ ト 


本 節 で 示し た コー ディ ング で は 入力 文字 が まっ た く 隠 され て し まう た め 
に 暗証 番号 を し っ か り 入 力 し た の か どう か が は っ きり し な いこ と が ある 。. 
暗証 番号 を 入力 ずみ で ある と いう こと を 画面 に 残す た め に , 入力 し 位置 
に 確か に 入力 し た 証拠 を 残し た いこ と が 多い の で ある . その と きこ の 表題 
の 指定 で INPUT 命令 を た 用 いる と 入力 し た 部 分 に パッ ク グ ラン ド と 同じ 
色 の カー ソル 大 の 正方 形 が 出力 され て いく . 後 で 画面 を 見 る と 確か に 入力 
し た こと が よく 分 か る . 

この リバ パー スシ ー ク レット 機能 は 次 の COLOR で 指定 する . 

COLOR 5 
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人 入力 要求 の の を 出さ な け 
方 法 


画面 を し っ か り 枠 組み し て デー タ の 入力 を 欄 の 中 に 要求 し よう と する と き 。 
INPUT 命令 に 伴う ? マー ク が 邪魔 に な る こと が 多い . ここ で は この ? マー 
ク を と る に は どう する か を 示 そ う 。 
この た め に よく 用 いら れる の が 次 の 命令 で ある . 
LINE INPUT 
これ は INPUT 文 と ほとん ど 同 じ よ うに 記述 で きる が , ? マー ク は 出力 され 
な い . 下記 の 画面 は その 左 に 記し た プロ グラ ム の 入出 力 例 で ある . 


1O CLS 

20 LINE INPUT " 
さ O =VAL($) 

40 PRINT " 
5O END 








上 例 の よう に LINE INPUT の 右辺 に 置か れる 変数 は 文字 変数 に 限ら れ て い 
る こと に 注意 し よう . 

も う 一 つの 方 法 と し て 有名 な の が , INKEY$ 関 数 を 用 いる 方 法 で ある . た と 
えば 入力 が 1 文字 に 限ら れ て いる 場合 に は , 次 の よう に 用 いる こと が で きる ( 右 
の 画面 は 入出 力 例 で ある .). 


行 番号 50 は キー か ら 入 力 さ れ た 文字 を 画面 に 表示 する た め の も の で ある . 


10 CLS 


20 PRINT "人 ="s A=3 
さ O =INKEY を Ok 
40 IF 人 n ま ="" THEN さ O 

50 PRINT As を 

6O END 


INKEY$ 関 数 は キー ボー ド か ら の 入力 の み で BASIC は その 入力 文字 を 画面 に 
は 出力 し な い の で ある . 
INKEYS 関 係 を 用 いて 複数 の 文字 を 入力 する 方 法 を 次 の 例 で 示し て みよ う . 


1oo 
11o 
120 Q*=TNKEY 

13O IF QA*="V THEN 120 

140 ITF Q*=CHR*(&HD) THEN 18O 
150 PRINT A$s 

160 B ま = 日 まあ + す 人生 

170 GOTO 120 

18O PRINT:PRINT B$ も 

19O0 END 





ここ で 行 番号 140 の を HD(=13) は キャ リッ ジ ・ リ ター ン (C : 改行 ) の アス 
キー・ コ ー ド で ある . 

INKEYS 関 数 を 用 いる と カー ソル の 点滅 が な く な っ て し まう . この た めい 画 
面 に 入力 要求 を 出し て も 気づき に くい . この た め , 入力 の 要求 文 は プリ ンク ( 点 
滅 ) させ る な ど し て 利用 者 の 目 に と まり や すい よう に すべ き で ある (45 節 参 
照 ). 

LINE INPUT お よび INKEY$ 関 数 の 他 に INPUT 関数 を 用 いた 方 法 が あ 
る . これ は INKEY$ 関 数 と 同様 に 用 いら れる が , 複数 の 文字 を 指定 し た 分 だ け 
同時 に 入力 で きる と いう 長所 が ある . し か し , その 指定 し た 分 の 文字 数 が 入力 
され る まで 値 を 返さ な いと いう 特性 が ある た め 。 利 用 者 に は 使い づら いも の と 
な る . 入力 要求 の ? マ ー ク を は ず す と いう 本 節 の 主旨 だ け を 考え る と , 本 節 で 
は あま り 勧 め ら れ な い 用 法 で ある . 


パソ コン メー カ の お 仕 着せ に 頼ら ず , 作成 者 の 工夫 し た 入力 要求 を 出 そ う . 
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2 大 文字 っ 小文字 変換 


英文 字 を 含ん だ 文字 列 の 入力 に 際 し て , 入力 の と き は その 英文 字 は 大 文字 で 
も 小文字 で も 構わ な い が 。 出 力 の 際 は 大 文字 (また は 小文字 ) に 整理 し た いと 
思う こと が よく ある . (BASIC 命令 の 入力 が その 例 で ある . 大 文字 ・ 小 文字 を 
入り 乱れ て 入力 し て も 全て 大 文字 に 変換 され る .) ここ で は その 技法 を 示 そ う . 

覚え て お か な けれ ば な ら な いこ と は , アス キー コー ド で 小文字 の コー ド は 大 
文字 の コー ド に (20)。(10 進数 で 32) を 加え れ ば 得 ら れる と いう こと で ある . 

< 例 > A の コー ドニ (41)。(10 進数 で 65) 

a の コー ドニ (61)」。(10 進数 で 97) 

し た が っ て 1 文字 の 英 小 文字 が 入っ て いる 変数 A$ を 大 文字 に 直し て 変数 

B$ に し まう に は 次 の 1 ステップ で すむ 。 
B$= ニ CHRS(ASC(A$) 一 &H20) 
次 に 入力 し た 文字 列 に 含ま れる 英 小文字 を すべ て 大 文字 に 変換 する プロ グラ 











ム を 考え よう 。 
100 INPUT "まあ = リ も 
110 IF が を THEN 1oo 
120 ="" 


125 FDR K=1 TUD LEN(A$) 

13O じ * ま =MID 和 も ( 人 も KK。1) : ビビ =ASC (C*) 

140 D=O 

15O ITF CC>=&H61 AND CC く <=&H7A THEN D=&H2O 
16O 日 =H ま +CHR ま (ビビ ーD ) 

170 NEXT K 

18O PRINT B$ を 

190 END 





A$ 三 ArcCos (p/3) 
ARCCOS (P/3) 
OK 
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ーーー ーーーーー デ ーー デニ ーー ーー ニー ニー ニー ニー ニニ ーーーーーー ニ ニー ニ ーー ニー ュー ニーーー ーー 


行 番号 150 で は a お よび z の アス キー コー ド が 次 の 値 で ある こと を 利用 し 
て いる . 
a 三 (61)」。,z 三 (7A)」。 
以上 の こと を 応用 すれ ば 1 文 の 先頭 を 大 文字 に する , と いっ た 英文 ワー プロ 
機能 な ど を 容易 に 実現 する こと が で きる . また 日 本 語 処理 で 片仮名 を 平仮名 に 
変換 する , と いっ た こと も この 論理 と まっ た く 同 一 に で きる . 


文字 処理 に 親しむ と , パソ コン の 新しい 応用 の 世界 が 開け て く る. 








ワー プロ (ワー ド プロセッサ ) の 中 味 は パソ コン と 同じ で ある . パソ コ 
ン に 文字 処理 を させ る の が ワー プロ で ある . 文字 処理 の 基本 は 本 節 で 示し 
た よう に 文字 コー ド を 上 手 に 扱う こと で ある . 文字 コー ド を 上 手 に 扱う 手 
段 と し て BASIC は 次 の よう な 関数 を 提供 し て くれ て いる . 

CHR$ : 指定 し た コー ド 値 を も つ 文 字 を 与え る 

ASC  : 文字 コー ド 値 を 与え る 

MID$ : 文字 列 の 中 か ら 任 意 の 長き の 文字 列 を 与え る 

INSTR : 文字 列 の 中 か ら 指 定 し た 文字 列 を 捜し 、 そ の 位 置 を 与え る 
STR$ : 数 値 を 表わす 文字 列 を 与え る 

VAL  : 文字 列 の 表わす 数 値 を 与え る 

LEN  : 文字 列 の 長 さ を 与え る 
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5 特殊 な 文字 の 入出 力 


キー ボー ド か ら カ ンマ (,.) や クォーテーション マー ク (?) を 入力 し よう と す 
る と き , 単純 に 
INPUT A$ 
と プロ グラ ム 中 に コー ディ ング し た の で は だ めで ある .。 カン マ (,) を 入れ る と 
? Redo from start 
な ど と いう メッ セー ジ が 出力 され る し , クォーテーション マー タク (?) を 入れ る 
と A$ に は ヌル スト リン グ (??) が 入っ て し まう . し た が っ て この よう な 特殊 
文字 の 入力 は INPUT 命令 で は 不可 能 で ある . BASIC は 特殊 文字 の 入力 が で 
きる よう 次 の 三 つ を 用 意 し て いる . 
LINE INPUT 
INKEYS 
INPUTS 
た だ し 改行 (キャ リッ ジリ ター ン Cx) 文字 に つい て は LINE INPUT で は 入 
力 で き な い 。 次 の プロ グラ ム は LINE INPUT の 用 例 と その 入出 力 例 で ある . 





100 INPUT "人 A ま ニ リ " ョ 人生 
11O PRINT 
120 LINE INPUT "B ま =" ョ BB$ 
130O PRINT "日生 =" ョ 昌和 

14O END 





次 に INKEY$ を 用 いて 改行 (キャ リッ ジリ ター ン : Cr) 文字 を 入力 する こと 
を 考え よう . これ は 単純 に 次 の よう に すれ ば よい 


140 AS$ 三 INKEYS 
150 IF=?? THEN 140 
160 





ーーー ニー ニニ ーーー ニー ニニ ーー ニー ニー ニー ニニ ーー ニー キー ーー 


行 番号 140 て 150 の ルー プ を 実行 中 に 改行 キー が 入力 され る と A$ に は コー 
ド (0OD)」。 (13) が 入る . 当然 (0D),。 と いう コー ド は キャ リッ ジ ・ リ ター ン の コ 
ー ド で ある . 

この C』 コー ド と 同様 に STOP キー 以外 の キー に 対す る 文字 コー ド は すべ 
て INKEY$ で 読む こと が で きる . 

INPUTS 関 数 は INKEY8 関 数 を 複数 の 文字 の 入力 の た め に 拡張 し た も の で 
ある . た だ し INPUTS で は 指定 し た 文字 数 の 入力 (この 文字 は STOP コー ド 以 
外 何 で も よい ) が 終了 する まで CPU は WAIT の 状態 に な る . 

特殊 文字 の 出力 は CHR$ 関 数 を 用 いね ば な ら な い , た と えば ク ォ ー テ ー シ ョ 
ンマ ー ク (") を 出力 し た いと き に 

PRINT 2 
で は だ め な の で ある . これ は シン タッ クス エラ ー と な る 。 次 の よう に 記述 する . 
PRINT CHRS(&H22) 

クォーテーション マー ク (”) の コー ド は (22)j。 で ある こと を 用 いて いる . ま 

た 画面 消去 命令 の 次 の 用 法 は 有名 で ある . 
PRINT CHRS(12) 

12 (16 進 で 0C) と いう コー ド は 画面 消去 コー ド (プリ ンタ で は 改 ペ ー ジ ) な 
の で ある . 

特殊 文字 (制御 コー ド ) の 入出 力 が で きる と , 繊細 な パソ コン 制御 が で きる 

よう に な る . 








制御 コー ド (制御 文字 ) 


A, B, C な どの 普通 の 文字 に 対し て コー ド &H0OD で 表現 きれ る Cs ( キ 
ャ リッ ジ ・ リ ター ン ・ コ ー ド ) な ど は コン ピュ ー タ 制御 に 関係 する 文字 で 
ある . この よう な 特殊 な 文字 を 制御 文字 と いい , その コー ド を 制御 コー ド 
と いう . 
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多用 する 文字 は 
ファ ンク ショ ン キ ー に 

パソ コン の 電源 投入 (リセ ッ ト ) 直後 , 画面 に は メー カ の 選択 し た 文字 列 が 
ファ ンク ショ ン キ ー の 値 と し て 画面 に 表示 され て いる の が 普通 で ある . この フ 
ァ ン クシ ョ ン キ ー の 値 が 簡単 に 変更 で きる こと を 知っ て いる と プロ グラ ム の コ 
ー ド 入力 や デー タ 入 力 が 非常 に 楽に な る . 

た と えば 通常 我々 の プロ グラ ム は INPUT 命令 を よく 用 いる が , 多く の パソ 
コン は これ を リセ ッ ト 直 後 の フ ァ ン クシ ョ ン キ ー の 値 と し て も っ て いな い 。 そ 
こ で ファ ンク ショ ン キ ー の N 番目 に この INPUT 命令 を 入れ て お く と 楽に な 
る . それ に は 次 の コマ ンド を 入力 すれ ば よい . 

KEY N." INPUT* 

以後 N 番目 の ファ ンク ショ ン キ ー を 押せ ば INPUT と いう 文字 列 が タイ プ 
イン され る の で ある . 

上位 機種 の ファ ンク ショ ン キ ー に は 。 LOAD, SAVE が リセ ッ ト 直 後に その 
値 と し て と られ る よう に な っ て いる が 。 中 以下 の 機種 に は そう な っ て いな いも 
の が 多い . ファ イル 操作 を する と きど うし て も LOAD, SAVE を よく 用 いた い 
の で これ を ファ ンク ショ ン キ ー に 定義 し て みよ う . た と えば LOAD を 考え て み 
る . この 命令 は 一 般 に 次 の 形 で 用 いら れる . 

LOAD “ファ イル 名 ? 

し た が っ て ,LOAD" と いう ふう に ファ ンク ショ ン キ ー に 入れ る と 便利 な こと 

が わか る . 上 記 の よう に KEY 命令 を 用 いる と 次 の よう に な る . 
KEY 1.? LOAD、 "7 
し か し これ で は エラ ー と な る 。 クォーテーション マー ク (?) は KEY 命令 中 
に 用 いる こと は で き な い . この と き 次 の よう に する . 
KEY 1.” LOAD_”/ 二 CHRS$(&H 22) 
ここ で (22)j。 は クォーテーション マー ク の アス キー コー ド で ある . 
SAVE に つい て も まっ た く 同 様 で ある . また FILES 命令 の よう に , その 直後 
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に リタ ー ン キー し か 伴わ な いと き に は 次 の よう に 定義 する と 便利 で ある . 
KEY 3,?FILES/+CHR$(&HOD) 

ここ で (&H 0D)」。 は RETURN キー の アス キー コー ド で ある .。 こう する こと 

で 3 番目 の ファ ンク ショ ン キ ー を 押す だ け で ファ イル の 中 味 を 見 る 操作 が 完了 


する の で ある . 
ちな み に 画 面 か ら フ ァ ン クシ ョ ン キ ー の 表示 を 消す に は 次 の 命令 を 用 いる . 
CONSOLE ,0 
この と き フ ァ ン クシ ョ ン キ ー の 中 味 を 見 る に は 次 の 命令 を 実行 きせ る . 
KEY LIST 
また 再び 画面 に ファ ンク ショ ン キ ー を 表示 させ る に は 次 の 命令 を 実行 させ る . 
CONSOLE ,1 


ファ ンク ショ ン キ ー は 上 手 に 用 いる と 本 当 に 便利 な も の で ある . その 内 容 の 
変更 も , 上 記 の よう に 非常 に 簡単 で ある . ぜひ 多用 する こと を お 勧め する . 


ファ ンク ショ ン キ ー を 有効 に 利用 する と , 入力 の 手間 が 大 きく 省け る こと に 
注意 し よう . 





朗 計 証 ファ ンク ショ ン キ ー 割 り 込 


上 位 機種 の パソ コン は ファ ンク ショ ン キ ー を 割り 込み キー と し て 定義 で 
きる よう に な っ て いる . これ は 次 の よう に 用 いる . 

ON KEY GOSUB 2700, 3000, 3200 

この と き , も し ファ ンク ショ ン キ ー 1 を この プロ グラ ム 実 行 中 に 押す と 
プロ グラ ム は 中 断 し 行 番号 2700 に 分 岐 す る . この 機能 を 用 いる と 割り 込み 
機能 が 大 幅 に 拡充 され 使い や すく な る . 
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8 捜し も の に は SEARCH, 


INSTR 関 数 を 


プロ グラ ム 論 理 と し て , 文字 列 や 配列 の 中 か ら 指 定 し た 文字 や 数 を 捜す と い 
うこ と を し ば し ば 用 いる . た と えば , 文字 列 の 入っ た 文字 型 変数 A$ の 中 に 十 と 
いう 文字 が ある か どう か を 調べ た りす る の は , 数 式 処理 で は 頻繁 に 用 いら れる . 
これ を 実行 する の に いち いち 次 の よう に し た の で は 大 変 で ある . 


200 FOR K=1 TO LEN(A$) 


210 IF MID$(A$, K, 1) =* 十 * THEN 230 
220 NEXT K 
230 “ 


この よう な コー ディ ング で は BASIC に よる 文字 処理 は 不可 能 で ある . あま 
り に 時 間 を と りす ぎ て し まう . BASIC は その た め に 次 の 命令 を 用 意 し て くれ 
て いる . 


200 K 三 INSTR(A$,.* 十 ?) 


また 配列 の 中 で ある 整数 値 を も つ 配 列 要素 を 捜す 論理 も 上 記 の よう に 多用 さき 
れる . た と えば 生徒 の 点数 が 入っ て いる 配列 A に お いて 満点 (100 点 ) を 取っ 
た 生徒 を 捜す こと を 考え よう . (生徒 は 300 人 いて , 配列 要素 の 添字 の 番号 が 生 
徒 の 受験 番号 と する .) 


270 FOR K=1 TO 300 
280 IF A(K)=100 THEN PRINT K 
290 NEXT K 


し か し SEARCH 命令 (標準 語 で は な い ) を 用 いる と 次 の よう に 書け る . 
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270 K ニ 1:1 ニ 1 

280 WHILE Il>0 AND K<=300 

290 |SEARCH(A, 100,K) 

300 IF I>0 THEN PRINT 1:K ニ | 二 1 
310 WEND 


ステ ッ プ 数 は 増す が 処理 速度 は 速く な る . と いう の は サー チ す る ルー プ を 後 
者 は BASIC の 翻訳 し た 機械 語 で 実行 する か ら で あ る . 

BASIC は 実行 速度 が 遅い 言語 で ある . その た め , ある 値 (文字 ) を 捜す よう 
な ルー プ 処 理 は で きる こと な ら , BASIC その も の に 任せ た 方 が よい . 表題 の 二 
つの 命令 を 活用 すべ き で ある . 


検索 に は INSTR, SEARCH 関数 が 意外 に 役立つ も の で ある . 





| weme | BASIC 命令 の 豊富 な 理由 


コン パイ ル 言 語 (FORTRAN, COBOL 等 ) で は 本 節 の 命令 の よう に 親 
切な 命令 は な い . 配列 か ら 数 値 を 捜し た り , 文字 列 か ら 文 字 を 捜し た りす 
る の は 自分 の コー ディ ング で 行う . で は , な ぜ BASIC は 豊富 な 命令 を 我々 
に 提供 し て くれ て いる の だ ろう か ? それ は 何 も 単に 親切 心から だ け で は 
な い . た び た び 述べ て きた よう に BASIC は イン タプ リタ 言語 で あり , 翻訳 
に 手間 取る 言語 な の で ある . し た が っ て 捜し も の を する の に FOR 
て NEXT な どの ルー プ 処 理 を し た りす る の で は , 待ち 時 間 が 膨大 に な る . 
翻訳 時 間 を 節約 し , BASIC が コン ピュ ー タ 言語 と し て 十分 に 役立つ よう 
に する に は 命令 を 多彩 に する し か な い の で ある . 我々 は BASIC の この 特 
性 を し っ か り 頭 に 入れ て お くべ き で ある . 
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9 の 処理 速度 の 調査 法 


プロ グラ ム の 処理 速度 を 測定 し よう と し た り , また 比較 し た り し よう と する 
と きい ちい ち ス トッ プ ・ ウ ォ ッ チ を 用 意 する 必要 は な い . パソ コン に は タイ マ 
が 内 蔵 さ きれ て いる の で ある 、 い ま , た と えば 次 の 二 つ の コー ディ ング の どちら 
が 速い か を 比較 し た いと する . 
2*A か A+A か ? 

この と き , パソ コン の 内 蔵 タ イマ を 用 いて 次 の よう に この 比較 を 行う こと が 可 
能 で ある . 

10o N=5ooo 

110 TIME*="OO: OO: 00" 

120 FOR K=1 TO N 

1SO  xX=2*A 

140 NEXT K 

150 PRINT TINE を 

160 TIME$="O0s 00s 00" 

170 FOR K=1 TO N 

1BO 。X=A+A 

19O NEXT K 


200 PRINT TIME も 
210 END 


結果 は 次 の よう に 出力 され る . 





この 例 で 分 か る よう に 現在 の パソ コン 内 蔵 の タイ マ の 時 刻 を 知る に は 
PRINT TIME$ 
で よく , また この 時 刻 を 合わ せ た い と き に は 
TIME$=* hh : mm : ss” 
と すれ ば よい . ここ で hh,mm, ss は 時 間 , 分 、 秒 の 値 で ある . 
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上 記 の プロ グラ ミン グ で は パソ コン の タイ マ の 時 刻 を リセ ッ ト し て し まう . 
時 刻 を 保存 する に は , 次 の よう に コー ディ ング する と よい . (上 例 の 行 番 号 100 
か ら 150 まで を 書き 換え る .) 


1oo 
110 
120 
13o 
14O 
15O 
160 
170 
180 
19O 
200 
21O 
22o 
23Q 
240 


N=5OOO 

T1 ま =TINHE ま 生 

FOR K=1 TO N 
メニ =2* 人 QA 

NEXT K 

T2 ま =TINE も 


日 1=VAL (MID ま (1 を 。1。2) ) 
NM1=VAL (MID*(T1 ま 。4。2) ) 
81=VAL (MTD ま (T1 を 7。2) ) 
H2=VAL (MTD$(T2$ 。1 。2) ) 
IM2=VAL (HID(T2 ま 。4。2) ) 
82=VAL (MID も (T2$。7。2) ) 
DH=H2ーH1 

PRINT DHi 





( 注 : DS 等 が 負 に な る 場合 は 読者 に 考え て 頂き た い .) 


パソ コン に も 時 計 が 内 蔵 さ れ て いる こと を 忘れ な いよ うに . 











パソ コン の 上 位 機種 で は , 表題 の 制御 を サポ ー ト し て いる . これ は , 次 
の よう な 形式 で ユー ザ が 用 いら れる . 
ON TIME$=?12 : 00 : 00" GOSUB * LUNCH 
すなわち タイ マ が 正午 を 告げ た と き BASIC は 制御 を 指定 され た サブ ル 
ー チ ン に 移す の で ある . 


叫 タイ マ 割 り 込み 
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4 入力 時 間 を 制限 する に は 


CAI( 教 育 用 ソフ ト ) や ゲー ム 用 の プロ グラ ム を 作成 し よう と する と き 。, 入力 
時 間 を 制限 し た いと き が 多い . た と えば 2 十 3 の 答え を 要求 する と き , 解答 者 が 
10 秒 以上 も キー を 押さ な けれ ば 警告 メッ セー ジ を 表示 し , 入力 を 禁止 し て 次 の 
処理 に 移り た く な る . 

NO ROD2 電 0988080 ぼ 失調 扶 2 

。 BASIC の 割り 込み の サー ビス より も 入出 力 割り 込み と いう チャ ネル の 割 
RNN 
み は 使 用 で き な い . そこ で , 次 の よう な 命令 が 用 意 さ れ て いる パソ コン が ある 、 
(NEC PC-8801/9801 か ら 採用 し た .) 

INPUT WAIT (待ち 時 間 ), プロ ンプ ト 文 : 変数 名 

この 命令 は INPUT と ほぼ 同一 で ある が , 待ち 時 間 で 指定 され た 長き だ け 過 
ぎ た ら 次 の 行 番 号 に 実行 を 移す と いう 特性 を も つ . 例 と し て 。 小学 校 用 の CAI 
に 用 いら れる 1 桁 の 整数 の 加法 を 学習 さき せる プロ グラ ム を 考え て みよ う . 


100 DEFINT 人 -Z 

11O PRINT:PRINT 

12O CH に な Em 
1 さ O PRINT "( 
14O PRINT as 日 

15O INPUT MAIT 100。Al 
16O PRINTsPRINT "シー カフ テー 
も る 70 “ 

18O IF ANS=A+B THEN PRINT " ヨ フ テ ~ キマ シタ "= GODTU 110 
190 PRINT "マチ カ ~ イ テー スリ 

200 BEEP:PRINT "(カイ ) "sa+BsBOTOD 110 








s BOTO 200 


この プロ グラ ム 例 を 見 れ ば 分 か る よう に 入力 の 時 間 制 限 に INPUT WAIT 
命令 が 非常 に 有効 で も ある. また この よう な 命令 を 用 いて 入力 要求 を 出す と プロ 
グラ ム が 生き 生き し て くる の で ある . 


パソ コン に も 待た され て イラ イラ する 権利 を 与え よう . 
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5 16 進 数 を 画面 に 出力 する に は 


いま , 次 の 命令 を 実行 し て みよ う . 
PRINT "7A ノコ ー ド ニ =”: &H41 
する と 画面 に は 次 の よう に 出力 され る . 
A ノ コー ドニ =65. 
すなわち , BASIC は 16 進数 で も 8 進数 で も すべ て 10 進数 に 変換 し て 画面 
や プリ ンタ に 出力 する の で ある . た と えば アス キー コー ド の 値 を 示し た いと き 
は , 10 進 よ り も 16 進 で 表示 し た い . で は どう や っ て 16 進 形式 で 出力 する か を 
- 般 的 に そう. 
変数 1 に 入っ て いる 整数 を 16 進 数 形式 で 表示 する に は , 次 の よう な コー ディ 
ング を すれ ば よい . 





140 |$=HEX$ (|) 
150 PRINT |$ 


すなわち , 1 と いう 値 を まず 16 進 の 文字 列 に 変換 (HEXS (1)) し , それ を 出 
力 す る の で ある . 画面 か ら の 入力 は 16 進数 形式 が 許さ れ て いる . INPUT 命令 
に 対し て た と えば , &H41 と 入力 し て も きち ん と 正しく 入力 され る . 

8 進数 に よる 画面 へ の 表示 も まっ た く 同 一 で ある . た だ し , こん ど は 変換 関数 
と し て OCT$ を 用 いる こと に な る . 





140 !$=0CTS$(!) 
150 PRINT |$ 


な お 最後 に ここ で 述べ た こと は , その まま プリ ンタ へ の 出力 に も 応用 で きる . 


16 進数 の 方 が わか りや すい 数 値 は 16 進数 で 出力 し よう . 
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の 配列 の 涼 字 を 1 か ら 始 め 
て メモ リ 節 約 


BASIC の 配列 の 添字 は , 0 か ら 始め られ る の は BASIC 言語 を 非常 に 使い や 
すく し て いる . し か し , 反面 添字 の 値 と し て 0 を と ちら な いよ うな プロ グラ ム に 
お いて は その 分 だ け 未 使用 と な り メ モリ を 浪費 し て し まう . 特に 2 次 元 配 列 や 
3 次 元 配列 に お いて は 深刻 で ある . そこ で 上 位 機種 の パソ コン で は 配列 の 添字 
を 1 から 始め る よう に 変更 で きる 命令 を 用 意 し て いる . それ が 次 の 命令 で ある . 

OPTION BASE 0 また は 1 
0 と 記す と 添字 は 0 か ら , 1 と 記す と 添字 は 1 か ら 始ま る . 









































A(00)1A(01)1A(02| … |A003 AG11A12| … AG3 
AG 3 A@ り : 

: AG0| … | … AG9 
A60| " 1" 1" 149 < 例 〉 OPTION BASE 1 
< 例 〉 OPTION BASE 0 の 配列 A (4.4 

の 配列 A (4.4) 


この 二 つ の 例 か ら も 分 か る よう に ずい 分 と 使用 メモ リ が 少な く な る . た と えば 
実数 型 配列 変数 に お いて A (10, 10) を と る と 次 の よう な メモ リ 計 算 に な る . 


OPTION BASE 0 OPTION BASE 1 
DIM A (10, 10) DIM A (10.10) 
11 メ 11 X4 三 484 パイ ト 10X10X4 三 400 バイ ト 


2 割 以上 の メモ リ 節 約 に な る の で ある . 配列 に お いて スタ ー ト を 0 に する か 1 
に する か は 大 き な 違 いと な る こと を 理解 し て も らい た い . 


大 き な 配列 を 用 いる と き に は , 少し で も メモ リ の 節約 を 考え よう . 
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RM 大 ぎ な プロ グラ ム は 
分 割 し CCHAIN 


大 き な プ ログ ラム を 作成 する と それ が パソ コン の メモ リ に 入り きれ な く な る 
こと が よく ある . メモ リ に 入り きれ な く な る 理由 は 二 つ あ る . (1) プロ グラ ム 
が 長 すぎ る , (2) デー タ 領 域 が 大 きす ぎる , この 節 で は (1) の 場合 を 扱う . 

メモ リ に 格納 し 切れ な い ほ どの 長 さ を も つ プ ログ ラム は 当然 モジ ュー ル 化 が 
な され て いな く て は な ら な い (2 節 参照 そし て も し これ が な され て いる な 
ら , プロ グラ ム 入 力 また は 連結 途上 で メモ リオ ー バ に な っ た と し て も あわ て る 
こと は な い . この プロ グラ ム の 実行 を 分 割 す れ ば よい の で ある . それ が CHAIN 
命令 で ある . 








































メモ リ メモ リ 

プロ グラ ム プロ グラ ム 

(モジ ュー ル A) (モジ ュー ル A) 

計 5 = = CHAIN ー 

(モジ ュー ル B) (ジュル B) 

CHAIN-- オ 上 ー 

いて rC) (モジ ュー ル C ) 
!( モジ ュー ル C)! 
1 1 
LEND 1 語 





細か い 仕 様 は 。 マニ ュ ア ル を 調べ て も らい た い が , 上 の 図 で その 使い 方 の 概 
略 は 理解 され る で あろ う . 

我々 は ,、 大 き な プ ログ ラム を 次 の よう に 作成 する の が 普通 で ある . まず モジ 
ュー ル 化 し た 設計 を プロ グラ ム に 与え 。 その 各 モ ジュ ー ル を 別々 に 作成 し , ま 
た 別々 に テス ト す る . 各 モ ジュ ー ル の デバ パッ ク が 完了 し た な ら 始 め て CHAIN 
命令 を 用 いて 結合 し 実行 させ る の で ある . こう する こと で 複数 の 人 間 に よ る プ 
ログ ラム 開発 が 容易 と な り 開発 期間 の 短縮 が な され る の で ある . 

パソ コン に お いて 大 き な プ ログ ラム 作成 時 に CHAIN 命 令 は 不可 欠 で ある . 
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g FOR 一 INEXT の 増分 は 


1 だ け で は な / け 


BASIC の 入門 書 に は , FOR 一 NEXT 命令 の 説明 に お いて STEP 指定 の 解説 
を 省 い て いる も の が 多い . その た めか , し ば し ば 次 の よう な コー ディ ング を 見 
か ける . 

27O FOR K=1 TO 10 
28o エニ 10+20*K 


290 。。 LINE (Q。1) 一 (6 さ 39。1) 
さ oO NEXT K 


これ は 画面 に 野 線 を 入れ る も の だ が , や は り 次 の よう に すべ き で ある . 


27O FOR K= さ QO TO 21Q STEP 2o 
2BO LINE (O。K) 一 (6 さ 9。 に K) 
29Q0 NEXT に 


FOR 一 NEXT 命令 の 一 般 形 は 次 の よう に 書け る . 
FOR K=I TO 」 STEP D 
5 
NEXT K 
ここ で 銘 記し て お くべ きこ と は 。 1, ], D の 値 を 何 に と っ て も よい と いう こと で 
ある . FORTRAN や COBOL に 人 慣れ た 人 は つい 1, , D の 値 が 正 の 整数 で な け 
れ ば な ら な いと 思い 込み が ち だ が , そう で は な い . 小数 値 お よび 負 の 値 で も よ 
い の で ある 。. 
ここ で は , 上 記 の 形式 の 変数 1, J、D の 値 と し て 小数 値 を と っ た と き の 注意 
点 を 述べ よう . 32 節 で 記載 し た が , も う 一 度 次 の プロ グラ ム を 見 て みよ う . 
1OO =O 
11O FUR X=O TO 1 STEP .1 
12Q =S+X 
13O NEXT X 


140 PRINT 8 
15O END 


これ は , 01 十 0.2 二 …… 十 1.0 の 値 を 求め る つも り で 作成 され た プロ グラ ム で あ 
る が , 正解 を 出さ な い . すなわち , 正解 は 5.5 と な る べき と ころ を 4.5 と 出力 し 
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て し まう の で ある . これ は コン ピュ ー タ の デー タ 表 現 の 構造 を 無視 し た た め に 
起き た 誤り な の で ある . (32 節 参照. ). 
我々 は FORーNEXT を 次 の よう に 記述 し た と き , どう し て も 右 の よう に 解 
釈 し て し まう . 
FOR X=| TO 」 STEP D  X が 1I か ら 始 まり D ず つ 増 えて ゆ 
き 値 が 』 に (も し く は それ より 大 き 
く ) な っ た と き ル ー プ が 終わ る . 
し た が っ て , 上 の プロ グラ ム で は 当然 1.0 も 和 S の 中 に 含ま れる と 解釈 し て し 
まう の で ある (し か し 現実 に は 上 記 の よう に そう な っ て は いな い ! )、 
この 解釈 を 生か す に は , 我々 は 次 の よう に FOR 一 NEXT 命令 た コー ディ ン 
グ す べき で ある 。. 





D の 値 は 整数 また は っ (N= ニ 12……) の 形 に せよ . 


この こと さえ 守っ て いれ ば , FOR~NEXT の 命令 を 素直 に 解釈 し て も 間 違 
い は 生じ な く な る . 

( 例 ) FOR K=1 TO 3 STEP 1 ン 8 

D の 値 が 与え られ て いて 変更 で き な い と き に は , 次 の よう に 工夫 する , す な 
わ ち 上 記 の 」 の 値 と し て 次 の よう に 指定 する の で ある . 

( 例 ) FOR K=1 TO J+.1*D STEP D 

こう する こと で , 簡単 に 上 記 の よう な 誤り か ら 逃 ん れ ら れる の で ある . し か し , 
この よう に コー ディ ング する と プロ グラ ム が 美しく な く な る と いう 欠点 を も っ 
て し まう の は 否定 で き な い . 


STEP 値 が 小数 の と き に は 慎重 さ が 要 求 さ れる . 


ウラ ルー プ 計 算 に は WHILE 


ーWEIND も 便利 


ルー プ 計 算 を BASIC の 標準 語 で 実行 させ よう と 思う と , FOR 一 NEXT 命令 
の 利用 が ある . し か し , 上 位 機種 で は 。 ある 条件 が 満た され て いる 間 ル ー プ 計 
算 を 行え , と いう 指定 が で きる 命令 が 備え られ て いる . NEC PC-8801/9801 は 
それ を WHILE-WEND 命令 で 実現 し て いる . 

た と えば 次 の 例 を 考え よう . 自然 数 の 4 乗 の 和 

ーー 1 填 24 十 PODCD 十 N* 

で その 和 S が 始め て 1000 を 越え る N の 値 を 求め る プロ グラ ム を 考え て みよ 
う . GOTO 命令 は な る べく 用 いな いと いう 要請 (14 節 参照 ) か ら こ れ を FOR 
て NEXT を 用 いて 記述 し て みよ う 


1oo S=o 

110 FOR N=1 TOD 100QO 
120 BS=S+N^4 

1 さ O IF S>1OOO THEN 15QO 
14O NEXT N 

150 PRINT "N="iN 

16O END 


行 番号 110 で K の 終り の 値 を 10000 と し た の は , これ 位 の 大 き な 値 を 指定 し て 
お け ば 十分 で あろ うと いう 予想 が ある か ら で あ る . も ちろ ん その 予想 は 正しい 
が コー ディ ング の 美 し さ に 欠け る と ころ が ある . この よう な と き , WHILE 
ーWEND は 非常 に 便利 で ある . 


10O 8=O:N=O 

110 MHILE S<=100O 
120  。N=N+1 

1 さ O SB=S+N^4 

14O MEND 

15oO_ PRINT "Ni 
16O END 
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これ な ら 前 の プロ グラ ム の FORーNEXT に 指定 し た 10000 の よう な 曖昧 さ 
を 残さ な い . この よう に , WHILE-WEND は 区 間 の 指定 が で き な い よう な 繰 
り 返 し 計算 に 非常 に 便利 で ある こと が 分 か る で あろ う . 

WHILE-WEND は , PL/I の よう な 高級 言語 の も つ 便利 な 命令 を BASIC 
で も サポ ー ト し よう と いう 観点 か ら 生ま れ た 命令 で ある . BASIC は 繰り 返し 
用 の 計算 命令 と し て FOR-NEXT も 用 意 し て いる が 各々 の 特徴 を 生か し て 利 
用 し て も らい た い . 

この WHILE-WEND の 記述 に お いて も , 当然 12 節 で 解説 し た 段 づけ の 技 
法 を 生か さ ね ば な ら な い . 逆 に いっ て , この 段 づ けけ を きち っ と や る こと で FOR 
て NEXT と 同様 WHILE-WEND 命令 が 生き て くる の で ある . 

最後 に 。FOR-NEXT と WHLILE-WEND の 処理 の 違い を フロ ー チ ャ ー 
ト に 示し て お こう . 

















FOR K=| TO JSTEP D- NEXTK WHILE K<=J』 一 WEND 


FORーNEXT, WHILE て WEND を 用 いて GOTO 命令 を 追放 し よう . 


ピン デキ スト 画面 一 序 を 放す 


画面 の すべ て を 消す に は , CLS と いう 命令 が ある . し か し , 文章 な どの 編集 
を する プロ グラ ム に お いて は 。 消し ゴム で 文書 の 一 部 を 消す の と 同様 に 画面 の 
ー 部 を 消し た いこ と が ある . また CAI 用 ソフ ト の 作成 に お いて 画面 に 書い た 答 
え を そこ だ け 再 び 隠 す , と いっ た 技法 を よく 使う 

画面 上 の 数 文字 を 消す な ら 次 の 命令 を 用 いれ ば よい . 





J 
1 
1 





トーーー- 陣 蜂 ------ LOCATE 1J:PRINT7 7 


1 
1 
1 
HI 
1 
I 
1 


ここ で PRINT 命令 で 書く スペ ー ス (空白 ) の 字数 は 消し た い 文 字 の 字数 に 
一 致 させ る . 

消し た い 文字 数 が 多い と き や , 消し た い 部 分 が 複数 行 に わた る と き に は 次 の 
よう な 命令 を 用 いれ ば よい . 


1 LOCATE |J 
I レル レク ジジ ジジ ク ク ( (K-!) 
レシ シシ シシ クジ ジジ 用 3$=SPACES (W* (K!) -J+ 上 1) 
ロク ク ク ク クジ グ ジグ PRINT S$ 









ここ で W と は 画面 の 1 行 に 入る 最大 文字 数 で ある . 
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日 本 語 の 文章 の よう に 縦 書き で 画面 を 利用 し て いる と き , 縦 方 向 に 画面 の 一 
部 を 消し た いこ と が ある . も ちろ ん 上 記 の 方 法 を 組み 合わ せれ ば この こと は 可 
能 だ が めん どう で ある . NEC PC-8801/9801 な ど に は 次 の よう な 命令 が 備え ら 
れ て いる . 
COLOR@  (X1., Y1) 一 (X2, Y2), FC 

これ は 画面 の テキ スト 座標 (X1, Y1) と (X2,. Y2) と を 結ぶ 線 を 対角線 と す 
る 水平 な 長方形 の 内 側 の 文字 の 色 を 変え る 命令 で ある . 通常 テキ スト 画面 の パ 
ッ ク グ ラン ド の 色 は 黒 で ある か ら そ の カラ ー コ ー ド に 文字 の 色 を あて れ ば 結局 
画面 か ら その 部 分 の 文字 が すべ て 消え て し まう 


CONSOLE ,, 1 


COLOR@(J)ー(KUD,0 





ここ で FC=0 は 黒 の カラ ー コ ー ド で ある . 
白黒 画面 で 上 の 機能 を 実現 する に は 次 の よう に する . 
COLOR@ (1)ー(KUD,1 
FC ニ =1 は 白黒 モー ド の と き そ の 部 分 に ある 文字 を 隠す 機能 コー ド で ある . 








| 消す と 隠す 


CLS 命令 や 空白 で 上 書き する 方 法 は 画面 上 の 文字 を 消す こと に な る , し 
か し 下地 の 色 と 同じ 色 に 書か れ て いる 文字 の 色 を 合わ せる 方 法 は 隠す こと 
に 相当 する .、 すなわち , 下地 の 色 を 変え る と 前 の 文字 が 浮か び 上 が っ て し 
まう の で ある . この 辺 の こと に 注意 が 必要 で ある . 
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9 色々 が 計 は 旨み 込み 半 遇 
の 組み 合わ せ 


た と えば 常用 対数 な ど , 有 名 な 関数 が すべ て BASIC の 組み 込み 関数 と し 
提供 され て いる わけ で は な い . し か し , ほとん どの 有名 な 関数 は BASIC の 組み 


込み 関数 で サポ ー ト で きる . 
に と えば 常用 対数 を みて みよ う . これ は 次 の よう に LOG (X) か ら み ちび か 
れる . 
(常用 対数 ) LOG (X)/LOG (10) 


これ は 数 学 で 用 いら れる 底 の 変換 公式 を 用 いて いる 
また 立方 根 x は 指数 演算 を 用 いて 次 の よう に 記述 で きる 


(立方 根 )  X^(1/3) 
応用 上 一 番 大 変 な も の が 逆 三角 関数 で ある . BASIC の 数 値 関数 と し て ATN 


(X) が ある が これ は 次 の 機能 を は た す . 
tan Y ニ X. を 満 す Y で うか ら う の 値 を 満 す も の 


これ を 用 いる と 
(1) sin Y ニ X を 満 す Y で うか ら う の 値 を 満 す も の を 求め る 関数 ASIN (X) 


(履正 弦 関数 ) は 
ASIN (X)= ] ATN (X/SQR (1X * X)) (X そ 1) 


え /x ニ 
っ (X%=1) 


そ /X ニ ー 
ー2 (X=ー1) 
(2) COS Y=X を 満 す Y で 0 か ら ァ の 値 を 満 す も の を 求め る 関数 ACOS (X) 


( 逆 余 弦 関数 ) は 





ACOS (X) ] ATN (SQR (1 一 X * X)/X) (0<X=1) 
ATN (SOR (1 一 X * X)/X) 二 ァ (一 1 く X く 0) 


2 (X=0) 

ァ (X ニ ー1) 
BASIC の 組み 込み 関数 を 用 いて 色々 な 重要 な 関数 を 出す に は , や は り 数 学 の 
知識 が 必要 で あろ う . 


使い た い 関 数 が BASIC に 用 意 さ れ て いな く て も あわ て な いよ うに ・- 








」 BASIC の 数 値 関数 
BASIC が 提供 する 数 学 上 の 有名 な 関数 は 本 節 で 述べ た LOG, 指数 演算 , 
ATN 以外 に 次 の よう な も の が ある . 
SIN (X) : 角 X (ラジ アン ) の 正弦 値 を 与え る 
COS(X) : 角 X (ラジ アン ) の 余弦 値 を 与え る 
TAN(X) : 角 X (ラジ アン ) の 正 接 値 を 与え る 
ABS(X) : X の 絶対 値 を 与え る 
INT (%) : GAUSS 関数 [X] で ある 
FIX (%) : 小数 部 を 切り 捨て る 
SGN(X) : 符号 を 与え る 
SQR(X) : 平方 根 を 与え る 
EXP(X) : 指数 関数 ( 底 が e ニ 2.718281…) で ある 
これ ら を 上 手 に 組み 合わ せる こと で 色々 と 有益 な 関数 が 生れ る の で ある . 
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ンー GOSUB 病 令 の 再帰 的 用 法 


次 の プロ グラ ム を 見 て みよ う 





110 D=2:a(1)=1: エニ N 
120 GOSUB *SUB 

125 FDR K=1 TU N:PRINT A(K):NEXT に 
1 さ O END 

14O *SUE 

15O IF =1 THEN 2OO 
160 エニ エー1 

17O GOSUB *SUB 

18O Aa(T+1)=A(T)+D 
190 エニ i+1 

200 RETURN 


これ は , 初 項 1 公差 2 の 等 差 数 列 (すなわち 奇数 列 ) を 始め か ら 3 個 列 拳 す 
る プロ グラ ム な の で ある . 


OK 


これ は 次 の り プ ログ ラム と 等 価 で ある . 


100_N= さ =: DINM A(N) 
11o 





12o 

13O Aa(K+1)=A(K) +D 

14O NEXT K 

15O FOUR K=1 TO N:PRINT A(K):NEXT K 
16O END 


この よう に 簡単 に 書け る プロ グラ ム を な ぜ は じ め の よう に 書く の か と いう と 。 
この よう な プロ グラ ム の 記述 方 法 に 慣れ て お く と 。 複雑 な 論理 を 処理 する と き 
に , し ば し ば 役に立つ か ら で あ る . 特に 何 段 階 も の 同一 論理 の 入れ 子 処理 を す 
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る と き に , その 有用 性 を 発揮 する . 

は じ め の プロ グラ ム を 説明 し よう . この よう な GOSUB 命令 の 用 い 方 を 再帰 
的 (また は 回 帰 的 ) な 用 法 と いい , この 命令 を 用 いた プロ グラ ム を 再帰 的 ( ま 
た は 回 帰 的 ) な プロ グラ ム と いう . 

* SUB と いう ラベ ル で 始ま る サブ ルー チン は , まず メイ ン ル ー チ ン の 行 番 
号 120 か ら 呼び 出さ れる . そし て , この サブ ルー チン に 実行 が 移さ れる と , そ 
の 中 に 再び 自ら を 呼ぶ 命令 ( 行 番号 170) が 入っ て いる の で ある . これ を 文章 で 
説明 する こと は 冗長 と な る の で 。 次 の 図 で 理解 し て も らい た い . 


110 …| =3 Fo SUB 140 *SUB 140 *SUB 
120 GOSUB*SUB 一 150 IF- 150 IF- 150 IF- 
160 |=2 160 
170 GOSUB*SUB 170 GOSUB *SUB 
URN 


180 A③)=A(2②)+D 180 A(2②)=A1)+D 上 
190 |=3 190 |=2 1 
200 RETURN 200 RETI 


200 RETURN 

















BASIC は この よう な 再帰 的 プロ グラ ミン グ を 得意 と し な い . し か し この 論 
理 を 知っ て いる こと は 一 つの 強力 な 武器 を 手 に し た こと と 同じ に な る . ぜひ と 
も 覚え て お いて も らい た い 。 な お , この よう な 論法 を 得意 と する コン ピュ ー タ 
言語 が いく つか ある . その 中 で 有名 な も の が , LISP や PASCAL で ある . 

これ か ら コ ンピュータ を 学ぶ 者 は , 再帰 的 な 考え 方 に 慣れ て お く こ と が 必要 

で ある . 





回 帰 的 な プロ グラ ム と 人 工 知 革 


近年 コン ピュ ー タ の 人 工 知能 化 が いわ れ て いる が , これ を 実現 する 有力 
な 表現 と な る も の の 一 つ に 本 節 で 扱っ た 回 帰 的 (再帰 的 ) な 表現 が ある . 

これ か ら コ ンピュータ を し っ か り 学ん で ゆこ うと 思う 方 に は この 論理 が 必 
須 で あろ う . 








ら コ RND 関 数 で 正規 乱数 を つく る 


統計 学 の 専門 家 で も な い 限 り , 乱数 を 仕事 で 利用 する こと は な か っ た で あろ 
う . し か し , コン ピュ ー タ を 使い 出す と , 意外 に 多く の 場面 で 乱数 を 活用 する 
よう に な る . た と えば , デー タ の モデ ル を 大 量 に 作っ て みた り , ゲー ム 等 で , 
デタラメ に 図形 を 動か し て みた り , 10 円 玉 や , サイ コロ を 振っ た りす る シュ ミ 
レー ショ ン に 使っ た り 実 に 様々 で ある . 

コン ピュ ー タ を 用 いて 乱数 を 発生 させ る に は RND 関数 を 用 いれ ば よく , 
RND(1) な る 命令 を 実行 する と 0 以上 , 1 未満 の 乱数 が 一 つ 作 られ る こと に な 
る (た だ し , 1 に は 具体 的 な 数 値 が 入り 。 その 符号 な ど に よっ で て 発生 され る 乱数 
が 変わ っ て くる の で マニ ュ ア ル を よく 読ん で ほし い ). し た が っ て 。 0 以上 , N 
以下 の 整数 を デタラメ に 作成 する に は , INT ((N+1) * RND(1)) と 命令 し 
ー N 以上 , N 以下 の 整数 を デタラメ に 作成 する に は INT ((2N+1) * RND 
(1)) 一 N と 命令 すれ ば よい . また , サイ コロ を ふる シュ ミレ ーション に 使う の で 
あれ ば , RND(1) の 値 が 一 1) 6 以上 i ン 6 未満 の と き に は サイ コロ の i の 目 
が 出 た と 解釈 すれ ば よい の で ある . これ ら の 使い 方 は 。RND 関数 が 0 以上 。 1 
未満 の 数 値 を デタラメ で は ある が , か た より な く 一 様 に 発生 させ る こと を 前 提 
に 成立 し て いる の で ある . も ちろ ん , そう で な いと 一 様 乱 数 の 意味 が な く な っ 
て し まう 。, 

この 節 で は , この 一 様 乱数 を 発生 きせ る RND 関数 を 用 いて , 正規 乱数 を 発生 
させ る プロ グラ ム を 紹介 する こと に し よう . その た め の プ ログ ラム と し て 次 の 


よう な も の が 考え られ る . 


1OO_N=100OOs DIM A(N) 

110 K=20=K1=SQR( 12/K) :K ド 2 ニ K/ つ 
iD=1O 

TO N 

14O FDR J=1 TO K 

15o Z=Z+RND (1) 

16Q NEXT J 

170  X=SDx(ZーK2) *K1+ME 

18O Aa(T)=X 

19o ィ =OQ 


















2Q0Q NEXT エ 
この プロ グラ ム は 平均 が ME で , 標準 偏差 が SD と な る よう な 正規 分 布 を な 
す デ ー タ を N 個 作 成す る も の で ある . ここ で は ME=50, SD=10, N ニ 1000 と 
し て 処理 し て いる . 実際 に つく られ た 1000 個 の デー タ を 分 布 グ ラフ で 示す と 次 
の よう に な っ て いる 。. 





ンー 

0 -( O)I 
きき =( 0)1 

10 -( 1)1 

15 -( O)I 

2o -( 8)1 

25 -( 22)1Iw 

30O 一 ( 54) TX 

さ 35 (BS) 導入 六 六 著作 

40 一 (154) 入信 

45 一 (1B0) 人 六 半 押 六 人 
5O 一 (200) 1 六 半 六 半 拓 療 拓 基 基 六 基 基 基 基 基 涯 
55 一 (146) T 拓 信人 拓 人 

60 一 ( 78) 1 半 入 六 拓 療 着 

65 一 ( 53) Ta 本 

70 一 ( 13)1w 

75 -( 5)i 

BO -( 151 

B5 -( O〉1 

90 -( OO)1 

今 ーt OH 

1oo -( O)I 

へ イキ ン = 49.6477 ヒョウ シー ュー ハン サニー 10.297 











この 分 布 グ ラフ や 。 実際 に 作ら れ た デー タ の 平均 標準 偏差 を 得る に あたっ 
て は , 先 の プロ グラ ム に , 次 の プロ グラ ム を 追加 し て 処理 を し て みた 。 ただし, 
* 印 は 10 個 分 の 度数 を 表現 し て いる も の と する . 
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Boo 『 

810 D=5:H=INT( (ME+SD*5) /D) : DIM BE(H) 
B20 FOR 1=1 TO N 

BSO _。T=INT(A(T)/D) :B(T)=B(T)+1 
B4O NEXT 1 


BS5O FUR 1=O TO H 
eo PRINT USING " 提 間 幸一 《 提 幸 苦 )T"sTxDsB(I)s 
B7O IF B(T)=O THEN PRITNT :GUTD 900 

Bo FUR J=1 TO B(I)/10:PRINT "*"ssNEXT J 
B9O PRINT 

900 NEXT エ 

91o 一 

920 FOR 1 ユ =1 TO N 

93 さ 0 。 SB1=S1+A(T) 

940 52=S2+Q(T)*Q(T) 

950 NEXT 1 

960 NM1=S1/N 

970 5=SQR(S2/N-IM1*M1) 

9BO_PRINT "パイ キン =" ュ M1 。 "ヒョウ シー ュ ン バン 





正規 乱数 を 作る プロ グラ ム は , 基本 的 に は , 一 様 乱数 を いく つか 加え て 作っ た 
新た な 数 は 正規 分 布 に 近く な る と いう 人 性質 を 用 いて プロ グラ ミン グ さ れ て いる 
の で ある が , その 加え 合わ せる 回 数 を K 回 と し た の で ある . K は 6 以上 の 値 を 
と れ ば 十分 で ある こと が 知ら れ て いる . この プロ グラ ム で は K=20 と し て あ 
る . 








RND 関数 


この 関数 を 上 手 に 用 いる と , パソ コン の 応用 の 世界 は 大 きく 広がる . ゲ 
ー ム , CAI, テス ト ・ デ ー タ 作成 な ど に 非常 に 便利 な も の で ある . BASIC 
に 組み 込ま れ た 一 つの 関数 と し て だ け と ら え な いで 頂き た い . 
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BEEP 病 令 で 音色 を 出す 


BEEP 命令 で 鳴ら きれ る プ ザ ー の 音 は ピー と 単色 の 音 が 鳴り 続け る だ け で 
あじ け な い が 。 少 し 工夫 する と 何 種 類 か の 音 が 作れ る . た と えば 次 の プロ グラ 
ム を 実行 し て みよ う . 

10O_N=1OOQ 

11O FOUR K=1 TON 

120 BEEP(1 ) 

13O NEXT に 

14O FUR K=1 TO N 

15O BEEP( 1 ) : BEEP (O) 

160 NEXT K 

17O FOR K=1 TO N 

18O BEEP( 1 ) s BEEP ( 1 ) : BEEP (O) 
19O NEXT K 

200 FOR K=1 TO N 

210 BEEP( 1 ) : BEEP (O) : BEEP ( 〇 ) 
220 NEXT K 

23O END 


音 を 聴い て みれ ば 明らか に 音色 が 違っ て いる . すなわち , ブザー 音 の スイ ッ 
チ の オン (BEEP (1)), オフ (BEEP (0)) の 組み 合わ せ で いろ ん な 音 を 出せ る の 
で ある . 

凝っ た 音 を 出す に は 機械 語 で 書く し か な い が , BASIC 命令 で も 上 の よう な 
工夫 を 加え る こと で , 5 て 6 種 の 音 を 美しく 出せ る の で ある . 音 の 効果 は 画面 表 
示 と 同様 ある い は それ 以上 に コン ピュ ー タ を 使い や すく し て くれ る も の で ある . 
プ ブザー 音 は 一 通り で ある , と いっ た 誤解 は 捨て る べき で ある . 


BEEP 命令 は パソ コン の 発する 声 と な る . 
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第 5 章 





グラ フィ ッ ク 命 令 


活用 法 


この 章 で は グラ フィ ッ ク 命 令 の 便利 で 有名 
な 使い 方 を 示 そ う . BASIC は グラ フィ ッ ク 
に つい て の 強力 な 命令 を 多く 有 し て いる . し 
た が っ て ,。 それ ら を 知ら な いと BASIC を 利 
用 する 価値 が な く な る . 以下 に 述べ る こと を 
参考 に し て BASIC 命令 の グラ フィ ッ ク へ の 


応用 を 次 第 に 開拓 し て いっ て も らい た い . 





0 扇形 は CIRCLE 病 令 で 


し ば し ば 見 うけ られ る 扇形 を 描く コー ディ ング は 次 の よう な も の で ある . 


100 P= さ . 14159:T1=P/ さ : T2= フ wP/ さ 
110 CX= さ 20:CY=100:R=10O: = 5 
120 CIRCLE (CX。CY) 。R。。T1。T2 
13O LINE (CX,CEY) 一 (CX+R*COS(T1) 。CY-RxMxSTN(T1) ) 
140 LINE (CX。CY) (CX+R*CDS(T2) 。CY-R*M*STN(T2) ) 





これ を 実行 する と 次 の よう な 扇形 が 画面 に 描か れる . 


し か し , も し これ と 同一 の 出力 結果 を 出す た め だ け な ら , 次 の よう な 簡単 な 
命令 を BASIC は 用 意 し て くれ て いる . すなわち 行 番 号 120-140 が 1 ステ ッ プ 
で すむ の で ある . 

120 CIRCLE (CX CY),R, 一 T1, 一 T2 

すなわち , 弧 を 描く た め の 角 度 指定 を , その 値 の まま マイ ナス を つけ る と そ 
の 弧 に 半径 が 付け 加え られ る . すなわち 弧 が 描か れる の で ある . 

た と えば 一 方 だ け を 負 に し て みよ う . ( 行 番号 は 既 掲 の プロ グラ ム に 従う ). 


(1) TI に マイ ナス を つけ る 


120 CIRCLE (CX,。CY), R, 一 T1, T2 
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(2) T2 に マイ ナス を つけ る 


ご 





120 CIRCLE (CX,。CY)。 Ri, T1, 一 T2 


CIRCLE 命令 の この 便利 な 用 法 を し っ か り 覚 えて お く こ と は , コー ディ ング 
を 楽に し 。 処理 速度 を 向上 させ て くれ る . 


CIRCLE 命令 は 円 だ け を 描く の で は な い / 


応用 例 と し て , 円 グラ フ を 描く プログラム と その 出力 結果 を 示し て お こう . 
(これ は 20 節 で 既に 記載 し て ある ). 


10Q 
110 
12Q 
13Q 
14Q 
15o 
1eO 
17Q 
18O 
19Q 
2oo 





ー マ - 14159: TO=5*F/2 

CX= さ 20: CY=100: R=10O 

FOR K=1 TO N 
READ M:DT=2PxM/10O 
T1=TO: IF TO>2*P THEN T1=TO-2*P 
CIRCLE (CX,CY) 。R。。ーTO。ー(TO-DT) 
To=To-DT 

NEXT に 

DATA 3Q。25,20。1510 

END 
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S 長方形 は LINE 病 令 で 


次 の プロ グラ ム を 見 て みよ う . 
さ QOO X1=10Os Y1=5Os X2=100: Y2=10G 
さ 10 X さ =400: Y さ =100: X4= ニ 40O: Y4=5O 
さき 20 LINE (X1。Y1) 一 (X2。Y2) 
ささ O LINE (X2。Y2) 一 (X さ 。Y る ) 
さき 4Q LINE (X さ 。Y う ) 一 (X4。Y4) 
さ 5Q LINE (X4。Y4) 一 (X1。Y1) 


これ は 画面 に 長方形 を 描い て いる . し か し , 長方形 を 描く だ け な ら 行 番号 300 
て 350 は 次 の 2 行 で すむ 


OO X1 ニ 100s Y1 ニ 5O= X さ ニ 400: 
き 10 LINE (X1。Y1) 一 (X さ 。Y3) 。 





BASIC の 命令 数 を 減ら すこ と は プロ グラ ム の 効率 化 に 大 い に 寄 与 す る 
LINE 命令 の この 使い 方 を 上 手 に 利用 する と 色々 な と ころ で グラ フィ ッ ク 上 で 
の 効率 化 が な され る こと が 可能 で ある . 

この LINE 命令 を 用 いた 使い 方 の 一 つ を 紹介 し よう . 下記 出力 例 の よう に , 
正方 形 の 面積 で 、 た と えば 人 口 の 大 き さ を 示す グラ フ を 作る と する , 














これ を 上 記 B 指定 を 使用 し な いで 作ろ うと する と 次 の よう に な る . 


100 CLS さ :N= さ 

110 ロ X=10O: DY=15O:LX=200:LY=10O 
120 FUR K=1 TU N:READ R(K) :NEXT ド 
13O LINE (DX。 ロ Y) 一 (HX+LX 。 ロ Y) 

140 LINE (DX』OY-LY) 一 (0X 。DY) 

15O FOR ド =1 TO N 
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ーー 


160  XG= ロ X+R(K) *LX: YGB=UY-R(K) xLY 


170。 し 
18o 暫 


INE (XG,OY) 一 (XG。YG) 
INE (XG,YB) 一 (DX ,YB) 


190 NEXT K 
2oo DAT 5。-7。1 


210 END 


9! 


こ で 出力 例 に 示し た 都市 名 は プロ グラ ミン グ し て いな い . これ を B 指定 を 


用 いて 記述 する と 次 の よう に 簡潔 に な る . 


10Q0 
11Q 
12o 
13O 
14O X| 








TO N 
G=OX+R(K) *LX: YB=DY-R(K) *LY 


15O LINE (OX。DY) 一 (XG。YG) 。B 


160 NEX 
17o DaT 


18O END 


E4 了 
A 5。-7。1 


グラ フィ ッ ク 処 理 は 画面 に 水平 ・ 垂 直 の 線 を し ば し ば 描く が , この LINE 命 


令 の B 指 定 を 


上 手 に 用 いる と , この 正方 形 の グラ フ の 例 の よう に プロ グラ ム が 


非常 に 簡単 に な り , 処理 効率 も 向上 する . 


LINE 命令 は 直線 だ け を 描く の で は な い . 








な っ て ゆく . 





LINE (X1, Y1) 一 (X2, Y2), C1, BEF, C2 


B 指定 の と ころ を BF と し ,C1, C2 に 適当 な 自然 数 値 07) を と る 
と , パソ コン は 次 の 命令 と 同一 の こと を し て くれ る . 
10 LINE (X1,Y1) 一 (X2, Y2), C1, B 
20 PAINT((X1 二 X2)/2。(Y1 二 Y2)/2), C2, C1 
すなわち , 描い た 長方形 内 部 を コー ド C2 に 対応 する 色 で 塗り つぶ し て く 
れる の で ある . この こと も 覚え て お く と グラ フィ ッ ク 処 理 が 非常 に 簡潔 に 
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4 拡張 CIRCLE 命 令 で 
回 転 体 を 描く 


NEC PC-8801/9801 等 で は CIRCLE 命令 に 次 の よう な 機能 を 追加 し て いる . 
CIRCLE (X, Y) , R, C1。 W, F, C2 

ここ で , R は 半径 , C1 は 円 の 色 ,。 W は 偏平 率 で ある . 拡張 機能 で ある F, C2 指 
定 は , この CIRCLE 命令 で 描か れ た 図形 の 内 側 を 色 コ ー ド C2 で 塗り つぶ せ と 
いう も の で ある 。. 

3 次 元 ダ ラフ ィ ッ ク に つい て は 。 他 書 に ゆず る こと に する が , こ の CIRCLE 
命令 を 用 いる と , 3 次 元 の 回 転 体 が 簡単 に 描け る こと は 特筆 に 値 し よう . その 例 
と し て 数 学 上 の 関数 


ッ ニ ダ 二 2 一 2yS2 
を * 軸 の 回 り に 回 転 し て で きる 立体 図形 を 画面 に 描い て みよ う . まず プロ グラ 
ム を 示 そ う . 
1oO CLS る 


110 DX= さ 20: ロ Y=100=s UX=20= UY=5 
120 LINE (O。OY)-(640。 ロ Y) 

13O : B=2: DEF FNF(X)= ニ XX+2 
140 
15o 
160 ・ 
17O FOR X=A TO B STEP Do 

180  R=aBS(FNF(X) ) *UY 

190 CTRCLE (X+UX*X。DY) ,R。。」。1。F。O 
200 NEXT X 

210 LINE (OX+UX*X。Y) 一 (640。 ロ Y) 

220 RETURN 


これ だ け の 短い プロ グラ ム で 立体 図 が す 速 く 描け り る の は お も し ろ い . また 回 
転 体 の グラ フ は 応用 範囲 が 広い の で この 技法 は 知っ て いる と 便利 で ある . 
この 技法 の 論理 は 下図 で 理解 され る で あろ う . 
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すなわち , 斜め 無限 遠方 か ら 見 れ ば 切り 口 の 円 は だ 円 と な る . それ を 何 枚 も 
重ね て ゆけ ば 輪郭 は 回 転 体 と な る . た だ し , 重ね る と き に 次 の よう に する こと 
で 3 次 元 の 現実 感 が 増す 


すなわち 。 手前 に 描い た だ 円 に 重なる 以前 の だ 円 は , 拡張 CIRCLE 硬 令 の F 
指定 で 消し て ゆく の で ある . 


3 次 元 グ ラフ ィ ッ ク も 工夫 する と 意外 に 簡単 に な る こと が ある . 
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28 座 宰 変 換 と WINDOW 一 
VIEW 病 令 


数 学 に お ける グラ フ を ディ スプ レイ 画面 に 描こ うと する と き , まず 我々 は そ 
の グラ フ を 紙 ま た は 頭 の 中 に 描く は ず で ある . た と えば 。 関数 y ニ *? の グラ フ 
な ら 次 の よう な 図 を 頭 に 思い 浮か べ る . 


y 


これ を ディ スプ レイ 画面 に どの よう に 描く か が 第 2 段階 で や も ある. それ に は 次 
の 操作 を 伴う . 
(1) 原点 を 画面 の どこ に 置く か を 決め る . 
(2) 数 学 上 の 単位 1 を 画面 の 何 ドッ ト に する か を 決め る . 
いま 640X200 ドッ ト の 画面 に ッ ニ x? の グラ フ を 描い て みよ う . この 画面 に 
は 次 の よう な 物理 座標 が つい て いる . 
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(⑫ の 操作 を ここ で 次 の よう に し て みよ う . 


(1) 数 学 上 の 原点 を 画面 の 中 央 , すなわち 物理 座標 で (320, 100) の 位 
置 に する . 
(2) 数 学 上 の 単位 1 に 横 方 向 (X 方 向 ) は 16 ドット, 縦 方 向 は 8 ドッ ト 
を 対応 させる. 
この 選択 に よっ て 次 の プロ グラ ム が 作成 され る . 
1oO CLS さ 


110 OX= さ 20: DY=10O: UX= ニ 16s UY= ニ BB: MX ニ 10s MY ニ 1 
12O LINE ( ロ X, ロ Y-UY*MY) 一 (OX 。DY+UY*IY) 
1 さ O LINE (DX-UX*HX 。DY) 一 (DX+UX*HX 。UY) 
140 DEF FNF(X)= ニ XX 

150 FDR X=-MX TO MX STEP -1 

160  。Y=FNF(X) 

17O IF Y<-MY OR Y>MY THEN 200 

1BO  XB=0X+UX*X:YB=DY-UY*Y 

190 PSET (XG。YG) 

200 NEXT X 

21o END 


これ は 次 の よう な イメ ー ジ で プロ グラ ミン グ さ れ て いる . 





すなわち 。 行 番号 180 に お いて 

XG=0X+UX* X 

YG=0Y-UY*Y 
は 画面 の 物理 座標 (XG, YG) と 数 学 上 の 座標 (X, Y) と を 結び つけ る 座標 変 
換 の 式 な の で ある . 
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慣れ た 者 に と っ て は 。 この 論理 は 分 か りや すく , また 応用 上 有益 で ある . し 
か し 始め て グラ フィ ッ ク を 扱う 人 々 に は 難解 に 見 えて し まう だ ろう . 最近 の 上 
位 機種 の パソ コン は , グラ フィ ッ ク 機 能 が 充実 し 。 この よう な 座標 変換 を し な 
く て も すむ よう な 命令 が つけ られ て いる . これ を NEC PC-8801/9801 で 説明 し 
て みよ う . 

この パソ コン の グラ フィ ッ ク 機 能 を 用 いる と , 座標 変換 の 式 は いら な く な る . 
頭 (また は 紙上 ) に 描く よう に プロ グラ ミン グ す る こと を 可能 に し て いる . す 
な わ ち , 数 学 上 の 座標 平面 の どこ か ら ど こま で を 画面 の どこ に 出力 する の か 。 
と いう 指定 を 最初 に する こと で この こと が 実現 で きる の で ある . 

数 学 上 の 座標 平面 の どこ か ら ど こま で を 画面 に 写し 出す か の 指定 が 

WINDOW (X1, Y1) 一 (X2, Y2) 
で ある . これ に よっ て 。 数 学 上 の 座標 平面 上 の 点 (X1, Y1), (X2, Y2) を 対 角 
と し た 長方形 の 内 部 が 画面 上 に 映し 出さ れる こと に な る . 
画面 の どこ に 映し 出す か を 指定 する の が 
VIEW (XG1, YG1) 一 (XG2, YG2). 
で ある . これ に よっ て 画面 上 の 物理 座標 (XG1, YG1), (XG2, YG2) を 対 角 と 
する 長方形 の 内 部 に グラ フ が 描か れる こと に な る . 

きっ そく この 二 つ の 命令 を 用 いて , 前 記 と 同一 の 内 容 を も つ プ ログ ラミ ング 

を し て みよ う . 


1oo CLS さ 
110 KO=2x200/640 

120 MX=10: HY=KOxMX 

1 さ O MINDOM (NX 。MY) 一 (HX 。MY) 
140 VIEM (0。0) 一 (6 さ 9。199) 

150 LINE (MX。O) 一 (MX 。O) 

160 LINE (O。-MY) 一 (O。MY) 

17O DEF FNF(X)= ニ XX 

18O FOR X=-NX TO MX STEP -1 

190 。Y=FNF(X) 

2o0 IF Y<-MY OR Y>MY THEN 22o 
210 PSET (X。-Y〉 

220 NEXT X 

23O END 
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最初 の プロ グラ ム に 比べ て , グラ フ を 実際 に 描く FOR-NEXT の 内 側 の 処理 
が 非常 に 我々 の 用 いる 数 学 に 近づい た こと が よく 分 か る と 思う . また 複雑 な グ 
ラフ を 描か せる とき, 座標 変換 を し な い 分 だ け 計算 スピ ー ド が 大 きく な り , 我々 
の 待ち 時 間 が 短縮 され る の で ある . この プロ グラ ム の 内 部 処理 の 原理 を 下図 に 
示し て みよ う . 

















(数 学 上 の 座標 ) (ディ スプ レイ 画面 ) 


グラフィ ッ ク 処 理 は , BASIC 言語 で 記述 する と 時 間 が か か る . し た が っ て 
な る べく BASIC が 提供 し て くれ て いる この WINDOW-VIEW 命令 な ど を 用 
いて , 処理 速度 を 向上 すべ き で ある . また , これ ら の 命令 を 用 いる こと で , ほ 
と ん ど ハ ー ド ウェ ア を 意識 する こと な く 数 学 の 論理 だ け で プロ グラ ム が 記述 で 
きる 。 と いう メリ ッ ト も 必然 的 に 生ま れ て くる の で ある . 


グラ フィ ッ ク は BASIC の 豊富 な グラ フィ ッ ク 機 能 に 頼 ろ う . 
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2 好み の 色 を 出す に は 


プ ブラウン管 に すぐ に 表示 で きる 色 は 8 色 で ある . し か し , その 8 色 を 上 手 に 
混ぜ 合わ せる こと で , 8 色 よ り も は る か に 多く の 色 を 出す こと が で きる (8 色 以 
外 の 色 の こと を 中 間 色 と 呼ん で いる .). 

た と えば , 円 の 内 側 を ピン ク で 塗り つぶ し た いと する .。 ピン ク は 基本 の 8 色 
の 中 に は 存在 し な い . そこ で 次 の よう な 命令 を 用 いる の で ある 。. 

1ooO SCREEN O。O 

11O CLS さ 

120 CIRCLE ( さ 20。10O) 。100。7 

1 さ O TILE ま = じ HR ま (&HAA ) +CHR も (&HFF ) +CHR ま (&HAA) 
14O PAINT (320。10O) 。TILE ま 。7 

実際 RUN させ て みる と , 確 か に 円 の 内 側が ピン ク で 塗ら れる . 行 番号 130 の 
文字 変数 TILE$ を 定義 する 16 進数 の 値 を 変え て ゆく と , どん どん 新しい 色 が 
出現 し て くる で あろ う . 

この グラ フィ ッ ク の 用 い 方 は 目 の 錯覚 を 利用 し て いる . すなわち , 上 例 の 
場合 だ と 画面 に 640X200 ドッ ト の 点 が ある わけ だ が , その 各 ド ッ ト の 色 を 変え 
る と , 全体 と し て 基本 の 8 色 と は 違っ た 色 が 出現 する の で ある . 

NEC PC-8801/9801 で は 色 を 混合 する 基本 単位 を 画面 上 の 横 8 ド ッ ト に と 
っ て いる .。 この 8 ドッ ト の 各々 に 基本 色 の 8 色 を 任意 に 対応 き は させ る こと に よっ 
て , 色々 な 配色 を 実現 させ る の で ある . 上 記 プ ログ ラム 例 で は , 変数 TILE$ で 
その 8 ドッ ト の 各々 の ドッ ト 色 を 定義 し て いる . 最初 の 16 進数 は 青 , 次 の 16 進 
数 は 赤 。 そし て 最後 の 16 進数 は 緑 に 対応 し , 各 16 進数 を 2 進数 に し た と き の 
8 ビッ ト の 各 和 桁 を 青 赤 緑 の 点滅 の ON.OFF (1 が ON,0 が OFF) と し て いる の 
で ある . 上 の 例 で な ぜ ピ ンク が 出せ た か は , 次 ペー ジ の 図 で 分 か る で あろ う . 

この 機能 を 拡張 する と 色々 な 色 と 模 様 で 画面 塗り つぶ せる よう に な る の だ 
が , ここ で は と に か く 8 色 の 基本 色 以 外 に も は る か に 多く の 配色 が 出せ る こと 
を 示し て お こう . 


736 


























16 進 数 2 進数 
2 AA |10101010 
っ プレ ニ ン ) FF |1111llll 
人 2 AA |10101010 




















画面 上 に 無限 の 色 の 変化 を つけ られ る こと を 覚え て お こう 





色 の 三原 色 


光 の 色 の 三原 色 は 赤 。 青 , 縁 で も ある. これ ら を 組み 合わ せる こと て 無限 
の 色 の 種類 を 作る こと が で きる . 

多く の パソ コン で は 簡単 に 指定 で きる 色 と し て 8 色 を 用 意 し て いる . 

( 例 ) PAINT (X, Y), 3, 7 

これ は , 赤 , 青 , 縁 を ディ スプ レイ 画面 上 の 1 ドッ ト に 割り 振る 方 法 の 
































数 に 等 し い 。 
青 の ドッ ト | 赤 の ドッ ト | 緑 の ド ッ ト | 出 て (4 色 
Oo 回 Oo 時 
@ ) O 青 
@ @ O 柴 
@ O @ 水色 
Oo @ Oo 赤 
O @ @ 黄色 
O O @ 緑 
@ @ @ 1) 


























〇 は OFF 介 は ON 
| ses 8 色 ( 三 2?) の 色 が 容易 に 出せ る こと が わか る . 
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図 に 梓 様 を つけ る 


きる . た 


な 】 


画面 の 図 に 種々 の 色 を 沙 る こと は , BASIC の PAINT 命令 で 実行 
と えば , 円 を 赤く り つぶ す に は 次 の 命令 で すむ 

CIRCLE (320, 100),100, 7 

PAINT (320, 100),2, 7 

この よう に 図形 を 色 で 塗り つぶ す の と 同じ よう に , 図形 を 模様 で 塗り つぶ し 
た く な る こと も 多い . た と えば 貫 模 様 に し た り , チェ ッ ク 模 様 に し た りす る の 
で ある . この こと は PSET 命令 を 用 いて 我々 が 自分 で プロ グラ ミン グ で きる が 
大 変 で ある . 上 位 機種 で は , その た め 次 の よう な 命令 で この 機能 を 提供 し て く 
れ て いる . ここ で , NEC PC-8801/9801 を 例 に と っ て 解説 し よう . 

PAINT (X。Y), TILE$, C 

ここ で C は 境界 の 色 で ある . また 文字 変数 TILE$ (この 名 前 は 何で も よい ) 
に は 模様 の パタ ー ン を 入れ て お く . た と えば , 次 の よう な 緒 模 様 で 円 を 埋め た 
いと き に は , そ の 下 の よ うな コー ディ ング を すれ ば よい . (変数 N が 縮 の 間隔 を 
規定 し て いる .) 


1oO_ SCREEN O。O:CLS さ 

110 CIRCLE ( さ 20。100) 。10O 。 ブ 

120 TL1*= ビ HR$(&HFF ) +CHR 生 (&HFF ) +CHR ま (&HFF ) 
1 さ O TL2 ま =CHR ま (SHO) +CHR ま (HO ) +CHR ま (SHO) 
140 N= さ 

15O TILE 和 = リリ 

160 FDR K=1 TD N:TILE ま =TILE ま +TL1 ま = NEXT に 
170 FOR K=1 TD N:TILE*=TILE ま +TL2*:NEXT に K 
18O _ PAINT ( さ 20。100) 。TILE ま 。 ブ 

19O END 


また 下図 の よう な チェ ッ タ 模様 を 出す に は 、 その 下 の よ うに コー ディ ング 
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する (変数 N は チェ ッ ク の 細か さ を 規 定 する .). 


100 SCREEN Q 
110 CIRCLE 
120 TL1*= ニ PHR$(SHF ) +CHR を (SHF ) +CHR ま (&HF ) 
130 TL2*=CHR ま (&HFO) +CHR 和 ま (&HFO) +CHR ま (&HFO) 
140 N= ミ さ 
15O TILE 
16O FOR TU _N:TILE*=TILE ま +TL1$:NEXT に 
170 FUR K=1 TU _N:TILE ま =TTLE ま +TL2*:NEXT K 
180 PAINT ( さ 20。100) TILE ま 。 ブ 

190 END 








どう し て この よう な 方 法 で 模様 が 描け る か は , 各自 パソ コン の マニ ュ ア ル を 
調べ て も らい た い が , と に か く こ こ で は この よう な 形 で 図形 に 模様 が つけ られ 
る こと を 知っ て も らい た い .。 

PAINT 命令 は , 塗り つぶ す だ け で な く 模 様 も つけ られ る こと を 覚え て お 

トー 








カラ ー 模 様 を 作る に は 


本 節 の 例 は 640X200 ドッ ト の カラ ー 画 面 を 白黒 の 模様 で 埋め た . も し カ 
ラー 模様 に する に は 上 記 コ ー デ ィング 中 の CHRS 関 数 の 中 味 を 適当 に 変 
更 す れ ば よい . 

( 例 ) 青 , 赤 の 稼 模様 を つく る と き (変数 N は 2 と する .) 

120 TL1$=CHR$(&HF0) 二 CHR$(&HOF) 二 CHR$(&HO) 

130 TL2$=CHR$(&HOF)+CHR$(&HOF) 二 CHR$(&H0) 
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6 ー 点 鎖線 を 描く ぐに は 


っ の 画面 上 の 座標 P(100, 100), Q(400, 100) を 一 点 鎖線 で 結ぶ に は PSET 
命令 を 用 いれ ば よい . 


10O FDR !=1QOO TO 400 STEF 16 
110 FOR K=QO TOD 9 

12Qo PSET (1I+K。1QO) 

13O NEXT K 

140 PSET (1T+12。100) 

150 PSET (1+1 さ 。10O) 

160 NEXT 1 


この 論理 を 用 いれ ば , 色々 な 模様 の 線 を 描く こと が で きる . し か し , 線 を 描 
く の に いち いち 上 記 の よう な コー ディ ング を する の で は 大 変 で ある .、 パソコン 
の 上 位 機種 に は 。 これ を LINE 文 で 実行 で きる よう な 機能 が つけ られ て いる . 

NEC PC-8801/9801 で は , 次 の よう な 形式 で この 機能 が 提供 され て いる . 

LINE (X1, Y1)(X2, Y2), C,, TILE$ 
この TILES$ と いう 文字 変数 (名 前 は どう で も よい ) に 直線 の パタ ー ン を 入れ 
て お く の で ある . た と えば 上 例 の パタ ー ン な ら 次 の よう に する . 
TILE$=CHR$ (&HFFCC) 
これ は 次 の ピッ ト パ タ ー ン を 画面 の ドッ ト に 対応 きせ た か ら で あ る . 
0 7 8 15 
111111111111111111110|101111010 



























































また 長方形 を 模様 で 塗り つぶ す と き に も , この TILES$ 指 定 は 非常 に 役に立つ 
も の で ある . LINE 命令 の 細か い 使 い 方 で は ある が 本 節 の 内 容 も 記憶 し て お く 
と 便利 で ある . 


LINE 命令 は 直線 だ け を 描く の で は な い . 
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4 グラ フィ ッ ク 画 面 の 保存 


立体 図 の グラ フィ ッ ク 処 理 な ど , 画面 に 図形 を 描く の に 非常 に 時 間 が か か る 
場合 だ が ある . この よう な と き , せっ か く 画 面 に 描い た も の を 電源 OFF で 消し て 
し まう の は も っ た いな い . この 節 で は グラ フィ ッ ク 画 面 に 描か れ た 図形 を 配 
列 に 読み 込み 、 また 配列 か ら 書 き 出す 方 法 を 示 そ う . 配列 に 入れ て お け ば , そ 
れ を ファ イル に 格納 し た りす る こと が で き て 便利 で ある . 

これ を 実現 する の に , 自分 の プロ グラ ム で も 可能 だ が 大 変 で ある . そこ で 
多く の 機種 で は 一 つの 命令 で それ を 実現 で きる よう に し て いる . それ が 次 の 命 
令 で ある . 

GET@ (X1, Y1) 一 (X2, Y2), G% 

PuTe (X1, Y1),G% 
GET@ は グラ フィ ッ ク 画 面 上 の 二 つ の 座標 (X1, Y1)。(X2, Y2) を 対 角 と す 
る 長方形 の 内 側 の グラ フィ ッ ク パ ター ン を 配列 G% に 読み 込む . また, PUT 
@ は その 読み 込ま れ た デー タ を , グラ フィ ッ ク 座 標 (X1, Y1) を 左上 隅 の 頂点 
と する 長方形 に 描く 

この 二 つ の 命令 に よっ て , グラ フィ ッ ク パ ター ン が 容易 に 配列 に 格納 され 。 
また 利用 され る . 描か せ た 図 形 を 永久 に と っ て お きた いと き に は , これ を ファ 
イル に セー プ す れ ば よい . 

グラ フィ ッ ク パ ター ン を 配列 に し まっ て お く こ と は , いつ で も それ を 高速 に 
画面 上 に 再現 で きる と いう こと で , 必然 的 に 次 の 二 つ の メリ ッ ト を も 産む . 

(1) 図形 の 平行 移動 が 容易 で ある 

(2) 図形 の 運動 を 画面 に 実現 で きる 
すなわち , (1) は GET@ の (X1, Y1) と PUT@ の (X1, Y1) の 座標 を ずら せ 
ば よく , (2) は (1) の 平行 移動 を 小 き ざさ み に す れ ば よい の で ある . これ ら の 応用 に 
つい て は 他 の 節 に 譲り ,。 ここ で は 一 般 論 だ け を 示し た に と ど め て お く . 


計算 時 間 を 多く 要 し た グラ フィ ッ ク 画 面 は ディ スク に 保存 し て お こう . 


727 


Z ラ 


下図 の 五角 形 を 描く プロ グラ ム を 考え て みよ う . 


- 番 容易 に 思い つく 方 法 は , この 図形 の 各 頂 点 に グラ フィ ッ ク 画 面 上 の 座標 を 
与え , それ を 線 で 結ぶ こと で ある . 


10O LINE ( さ 20,5Q) -(200,8O) 
110 LINE (200。BO) (200。150) 
120 LINE (200。150) (440。150) 
1 さ O LINE (440。150) 一 (440。BO) 
140 LINE (440,BO) (320 ,5O) 


上 の プロ グラ ム の 欠点 と し て いえ る こと は , も し 五角 形 の 位置 を 変更 し た いと 
き に は , プロ グラ ム 全 部 を 修正 せ ね ば な ら な いと いう こと で ある . この 座標 の 
指定 で は , 五角 形 を 画面 の 中 央 に 配置 させ た が , 隅 に 移し た いと いう 修正 要求 
が 出 た と き 困っ て し まう の で ある (この 例 の よう な 座標 の 指定 の し 方 を 絶対 座 
標 に よる 指定 と いう .)、 
この よう な 欠点 に 対し て , 我々 は 色々 な 対処 方 法 を 本 館 ま で に 説明 し て きた . 
(1) WINDOW -VIEW を 用 いる (65 節 参照 ) 
(2) 座標 を 変数 で 指定 する (20 節 参照 ) 
(3) GET@, PUT@ を 用 いる (72 節 参 昭 ) 
ここ で は これ ら の 方 法 よ り も は る か に 容易 な 方 法 を 示 そ う . それ が 座標 の 相対 
指定 で ある . 実際 この 機能 を 用 いて 上 例 の プロ グラ ム を 書き 変え て みよ う . 
100 0X= さ 20: ロ Y=S5Q 
11O LINE (DX。HY) STEP (一 120。 さ 0) 
12O LINE -STEP (O。100) 
1 さ O LINE -STEF (240。0) 


140 LINE -STEP (O,-1QQ) 
150 LINE -STEP (120,- さ O) 
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グラ フィ ッ ク 座 標 の 相対 指定 


五角 形 の 場所 を 変え た た いと き に は 行 番号 100 の 変数 OX, OY の 値 だ け を 変 
更 すれ ば よい の で ある . 

BASIC は プロ グラ ム が 最後 に 参照 し た グラ 
フィ ッ ク 座 標 (LP : Last referenced point) 。 STEP (X, Y) 
を 常に メモ し て いる .、 そ の メモ され て いる Y 
LP か ら の 相対 位置 で ダラ フィ ッ ク 座 標 を 定 LP X 
め よ うと する の が , 相対 座標 に よる 座標 の 指 
定 な の で ある . 

この よう な 指定 方 法 を 用 いる と, 変更 要求 に 容易 に 対応 で きる と いう 利点 と 
と も に プロ グラ ム が 非常 に 簡潔 に な る と いう メリ ッ ト も 生ま れる . 

LP は 次 の グラ フィ ッ ク 命 令 を 用 いた と き に その 値 を 更新 する . 

PSET, PRESET, LINE, CIRCLE, PAINT 
これ ら は 実際 に 画面 に 点 を 打つ 命令 で ある . も し 単に LP の 値 だ け を 変更 し た 
いと き に は , 次 の 命令 が 用 意 さ れ て いる . 

POINT (X, Y) 

また 単に LP の 値 を 知り た いと き に は 次 の 関数 を 用 いれ ば よい . 

POINT (⑪) (=0, 1, 2, 3) 

た だ し , この POINT 命令 (関数 ) に つい て は サポ ー ト され て いな い パ ソコ 
ン も 多い . 


プロ グラ ム の コー ディ ング は 常に 修正 の し や すさ を 念頭 に 置 こう . 








図形 の 回 転 


本 節 で 示し た よう に 図形 の 平行 移動 は 容易 で ある が , 回 転 と な る と 話し 
が 複雑 に な る . 数 学 の 行列 の 考え 方 が 必要 と な る . これ に つい て は 高校 時 
代 の 数 学 の 教科 書 を 復習 し て も らい た い . 
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(2 落書 き の す すめ 


パソ コン で も の を 設計 する と き , 原版 は 残し な が ら も その 上 に 色々 と 修正 を 
加え た いと いう こと が よく ある . た と えば , 建物 の 輸 郭 を 設計 し た が 窓 を その 
全体 の 中 で どこ に 配置 し よう か , と 考え る と き な ど , 建 物 の 輪郭 は 残し て 。 そ 
の 上 で 窓 を 色々 と 落書 き し た く な る . 


輸 部 


窓 の 案 A 容 の 案 B 














パソ コン の 上 位 機種 で は , 多重 画面 を 採用 し て いる た め , この よう な 要望 に 
対し て 簡単 に 応え る こと が で きる . 以下 で は NEC PC-8801/9801 に つい て その 
使い 方 を 説明 し よう . 

画面 は 640X200 の 白黒 モー ド と し よう . まず 次 の 設定 を し て 下絵 を 描く . 

① SCREEN 1, 0, 1, 1 
下絵 が 描き 終わ っ た な ら 次 の コマ ンド を 入力 する . 

⑨ SCREEN 1,0, 2.3 

こう する こと で , 以下 の プロ グラ ム で どん な 絵 を 画面 に 描い て も 

CLS 2 

を 実行 する と 元 の 下絵 が 残り , “落書 き " は 消え る . 

NEC PC-8801/9801 で は , 残念 な が ら カ ラー に つい て の 多重 画面 は で き な い . 
し た が っ て 色 を つけ る 落書 き に 対し て は , この よう な 方 法 は 不可 で ある . カラ 
ー 画 面 で 下絵 を 破壊 し な いで 落書 きす る に は 次 の 手順 を と る . 
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① GET@ 命 令 で 画面 全体 を 配列 に 読み 込ん で お く 
② 下絵 に じかに 落書 き を する 

⑧ ⑨ が 終了 し た ら 下 絵 も ろ と も 画面 を クリ ア す る 
④ PUT@ 命 令 で 画面 に 下絵 を 復元 する 


人 行 財 谷 四 み 朋 全 


GET @ 





PUT@ 








グラ フィ ッ ク 画 面 の この よう な 使い 方 は 。 パ ソコ ン の 応用 分 野 を 広げ る の に 
役立つ . 以上 二 つ の 技法 は この 意味 で 大 切 で ある . 


パソ コン の 画面 を キャ ン バ パス の よう に 用 いて みよ う . 





時 末 面 と 運動 


画面 上 で 図形 を 動か す と き , この 二 重 画面 を 有効 に 利用 する と 効果 が 大 
きい . すなわち , 動か し た 図形 を 画面 に 描い て いる と き は 前 の 画面 を その 
まま 表示 し て お き 。 描き 終わ っ た ら 新 画面 を 旧 画 面 に 置き 換え る の で ある . 
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画面 上 に 輪郭 を 決め 。 それ に 配色 チ する プロ グラ ム を 考え る . その プロ グラ ム 
を 動か し 画面 を 見 て どう も 配色 が 気にいら な いと する . この と き , 我々 は 配色 
を 変更 する わけ で ある が , 何 も 工夫 を 凝ら し て いな いり 場合 。 PAINT な ど で 指定 
され た カラ ー コ ー ド を 1 ステ ッ プ ずつ 変更 し て いか ね ば な ら な く な る 。 た と え 
ば , 次 の 左 図 を 作成 する プロ グラ ム を 右 の よう に 作っ た と し よう . 


ァ ーーーーーーーーーー 
100 CIRCLE (250。1oo) 。10o 
110 CIRCLE ( ミ 70。10O) 。10o 
120 PAINT (250。100) 。2。7 
13Q PAINT ( さ oOO。1GO) 。1 。7 


140 PAINT ( ミ 70。10O) 。6。7 
150 END 








どう も 配色 が 気に入ら な いと 考え , 次 の よう な 画面 の 配色 を 考え て みよ うそ 
の と き 修 正 さ れ た プロ グラ ム を 左 に 記し て お く . 
ーーーーーーーー ーーーーー=、 
1o0 CIRCLE (250。100) ,100 
110 CIRCLE ( ミ 70。100) 。100 
120 PAINT (250。100) 。7。7 
13O PAINT ( さ O0。100) 。1。 ブ 
140 PAINT (370。100) 。4。 ブ 
15O END 
ニー ニー ニー ニニ ニー 


右側 に 書い た よう な プロ グラ ム に お いて 配色 を 修正 し た いと き に は , いち いち 
プロ グラ ム の 中 味 を 見 て 修正 し よう と する 色 コ ー ド を も つ 命 令 を 捜し 。 それ を 
ー つ ひと つ 変 更 し て ゆか ね ば な ら な く な る . これ で は 長い プロ グラ ム の 変更 が 
大 変 で ある . 
パソ コン の 上 位 機種 で は , この よう な 不便 さ に 対し て 色 の 相対 指定 を 提供 し 
て くれ て いる . NEC PC-8801/9801 で は 次 の 命令 が これ に 対応 する . 
COLOR= (1 J) 
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カラ ー コ ー ド は 相対 指定 で 


これ は , プ ログ ラム に お いて , カ ラー コー ド を 1 と し て 書い た と ころ は 実際 は 
」 の 物理 的 カラ ー コ ー ド で 描か れる こと を 意図 し て いる . すなわち , プロ グラ ム 
中 は 仮 の ] と いう カラ ー コ ー ド で 書き , 実際 は J」 と いう コー ド に 対応 する 色 で 
塗れ と いう こと を 指示 する も の な の で ある . 

上 例 の よう な 変更 に 対し て , この COLOR 命令 た 用 いて ,。 プ ログ ラミ ング さき 
れ て いれ ば , その プロ グラ ム 修 正 は 容易 と な る . プロ グラ ム 先 頭 で 定 義 し た こ 
の COLOR 命令 に お ける 色 の 対応 だ け を 変更 すれ ば よい か ら で あ る 。. 
この COLOR 命令 の ( 。) の 左 に ある も の を パレ ッ ト 番 号 と 呼ん で いる . そ 
し て 次 の よう な 関係 で カラ ー コ ー ド と 対応 させ られ る . 


パレット 番号 カラ ー コ ー ド 





トーー 0 ( 黒 ) 
トー 1 ( 再 ) 
2 () 
トーー 3 ( 尼 ) 
4 ( 緑 ) 
5 (水色 ) 
トーーー6 (黄色 ) 
ャ ーー? ( 敵 




















COLOR は , コマ ンド レベ ル で も 使用 で きる . すでに 描か め れ て いる 画面 に , コ 
マン ド と し て この 命 令 を 打ち 込む と 即座 に 配色 が 変わ る こと に な る . 


コー ディ ング 時 , 命令 の パラ メー タ は 常に 相対 指定 と な る よう 心がけ よう . 


7 フス フ 





4 直線 ・ 円 を 消す に は 


画面 に 点 を 打つ に は PSET 命令 が あり , それ を 消す に は 
PRESET (XY) 
が ある . し か し , 円 や 直線 を 描く に は LINE 命令 , CIRCLE 命令 が ある が , そ 
れ を 消す た め の 命令 は な い . し た が っ て 。 画面 に 描い た 円 や 直線 は 消せ な い の 
か , と いう と そう で は な い . 次 の よう に 考え れ ば よい . 


図形 を バッ ク グ ラン ド と 同一 色 に すれ ば その 図形 は 消え た こと に な る . 


いま , 画面 中 央 に 白 の 線 で 円 を 描い た と する . 


〇 


も し , この 円 を 消 そう と 思う な ら , 同一 半径 。 同一 中 心 の 円 を バッ ク グ ラン 
ド の 色 (いま の 場合 黒 (カラ ー コ ー ド 0) と する ) で 描 り ば よい の で ある . 


ド CIRCLE (320, 100), 100, 0 








これ で 円 は 画面 か ら 消 えた . 

直線 に つい て も まっ た く 同 様 で ある . バ 
える と いう こと は 気がつく と 当り 前 な の だ 
色々 と 応用 が きく も の で ある 。. 





クタ グラ ンド の 色 で 塗れ ば 図形 は 消 
> それ を し っ か り 意 識 し て いる と 





命令 を 少し 工夫 する こと で 多彩 な 活用 法 が 見 い 出さ れる . 
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2 グラ フィ ッ ク 画 面 の 一 部 分 
の クリ ア 


画面 全体 を 消去 する に は 。 次 の よう な 命令 が ある . 
CLS 2 また は 3 
し か し , 画面 の 一 部 だ け を クリ ア す る 命令 は それ 専用 に は な い . た と えば 
左 半分 だ け を クリ ア し よう と いう こと は 。 上 の 命令 で は で き な い . 
表題 の 内 容 を 実行 する に は , 次 の 命令 を 用 いる こと を 勧め る . 
LINE (X1, Y1) 一 (X2, Y2), 0, BF, 0 
ここ で , カラ ー コ ー ド (また は パレ ッ ト 番 号 ) 0 は バッ ク グ ラン ド の 色 と す る . 
すなわち 。 消し た い 枠 の 内 部 を バッ ググ ラン ド と 同一 色 で 塗り つぶ し て し まう 
の で ある . た と えば 左 半 分 を クリ ア す る に は 次 の よう に する . 


LINE (0. 0) - (320, 199), 0 BF, 0 


ここ で 画面 は 640X200 ドッ ト と する 。 
同一 の 原理 を 使え ば , クリ ア す る 梓 組 は 何 も 四 角 で ある 必要 は な い . 円 の 内 
側 を クリ ア す る に は 次 の よう に すれ ば よい . 


| CIRCLE (400, 70),100, 7 
PAINT (400, 70), 0, 7 


画面 の クリ ア は CLS 命令 に こだわ る 必要 は な い . 
( 注 ) 消し た いと ころ を VIEW 命令 で 指定 し , CLS 命令 を 実行 する と その 領域 トク リア さ 
れる . 
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第 6 章 


効率 の 良 け 9 プロ グラ ム 


の 作成 法 








この 章 で は 計算 スピ ー ド を 上 げ る 有名 な 計 
算 技法 を 紹介 する . これ まで に , た び た び 述 
べ て きた よう に BASIC は 翻訳 に 時 間 を と ら 
れ , 工夫 を 何 も し な いと 処理 効率 が 非常 に 悪 
く な っ て し まう . 本 章 で 掲げ た も の は その 工 
夫 の 中 の ご く 少 数 の も の で ある が , し ば し ば 
有効 に 用 いら れる も の で ある . ぜひ 頭 の 中 に 
と ど め て お いて も らい た い . 











62 実行 ステ デップ 数 は 少な ぐ 


BASIC は , その 言語 の 特性 上 翻訳 に 時 間 が か か る . し た が っ て 効率 の 良い プ 
ログ ラム を 作成 し よう と 思う と き , 最初 に 思い つく の が 命令 数 の 削減 で ある . 
命令 の 数 が 少な けれ ば , その 分 だ け コ ンピュータ は 翻訳 の 時 間 が 節約 で きる の 
で ある . ここ で は 前 章 ま で に 述べ られ て きた こと も 含め , この 技法 を まとめ て 
みよ う . 


(1) BASIC 命令 を た くさ ん 覚え よう 
た と えば 変数 A と 変数 B の 値 を 入れ 換え る の に 次 の よう な コー ディ ング を 

し た と し よう . 

120 X ニ A:A ニ B:B ニ X 
これ を 三角 代入 法 と 呼び F、FORTRAN や COBOL な ど で は し ば し ば 用 いら れ 
る 論理 で ある が , し っ か り BASIC 命令 を 覚え て いれ ば 次 の よう に 記述 すべ き 
で ある . 

120 SWAP AB 
命令 数 が 上 例 に 比 し て 1/3 と な り 処 理 速度 が 向上 する の で ある . この よう に , 
BASIC 命令 を 多彩 に 用 いる こと で , プロ グラ ム は 簡潔 に な り , また その 分 だ け 
処理 速度 が 向上 する . 


(2②) BASIC に 任せ られ る こと は BASIC に 任せ よう 
た と えば , 配列 A を 宣言 し , その 配列 要素 すべ て を 0 に 初期 化し て お く コ ー 
ディ ング を 次 の よう に し た と する . 
140 DIM A(100) 
150 FORK=1 TO 100 
160 。A(K)=0 
170 NEXTK 
し か し , マニ ュ ア ル を し っ か り 読 ん で いれ ば , 次 の 1 ステッ プ で こと 足り る . 
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140 DIM A(100) 

すなわち 。 BASIC は DIM 命令 を 実行 する と , その 宣言 し た 配列 の 要素 を す 
べ て 0 に 初期 設定 する の で ある . 

この 例 の よう に , マニ ュ ア ル を 熟読 する こと に よっ て BASIC に 任せ られ る 
こと は すべ て BASIC に 任せ て し まう よう 心がけ る べき で ある . 


(3) 1 行 で すむ と き は 1 行 で すま せよ う 
次 の 左右 の コー ディ ング を 見 て みよ う . 
10 X=A+B 10 Y=A+B+C 
20 Y=X+C 
コン パイ ル 言 語 で は , 左右 二 つ の 実行 時 間 に 大差 は な い . し か し BASIC で は 大 
き な 差 が 出 て し まう . それ は BASIC が 常に 翻訳 十 実行 を 繰り 返す か ら で あ る ・. 
左 で は 二 つ の 翻訳 」 右 で は 一 つの 翻訳 で すむ . 

上 例 は 極端 な 例 で ある が , 翻訳 に 処理 時 間 の 多く を と られ る BASIC の プロ 
グラ ム で は , 1 行 で すむ プロ グラ ム を わざ わざ 2 行 に する こと は 処理 効率 を 大 
幅 に 低下 させ る こと に な る こと を 頭 に 入れ て お いて も らい た い 。 

以上 。 コー ディ ング 上 し ば し ば 利用 され る 注意 点 を 三 つ 示 し た が , この 他 に 
も も ちろ ん 色々 な 配慮 を 払う こと に よっ て 実行 ステ チッ プ 数 を 減少 させ る こと が 
で きる . 大 切な こと は , この こと を 念頭 に お いて コー ディ ング する こと で ある 。 
意識 する と し な いで は コー ディ ング に 大 き な 差 が 出 て くる . 


と に か く , 命令 の 数 を 少な くす る 努力 を し よう . 
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2 演算 回 数 は 少な ぐ 


コン ピュ ー タ も 人 間 同 様 , 計算 を する の に 時 間 を 費やす . し た が っ て 当然 計 
算 回 数 は 少な い に こ し た こと は な い . ここ で は いく つか の 有名 な 技法 を まとめ 
て 説明 し よう (すでに 前 章 ま で に と り 上 げた も の も ある ). 





(1) 多項式 の コー ディ ング で 括弧 を 多用 し よう 
た と えば ッ ニ 9 十 32 十 人 婦 十 グ を コー ディ ング する と き 。, 次 の よう に コー ディ 

ング する と よい . 

200 Y ニ X *(X *(X 十 3) 十 4) 十 2 
これ を 元 の 式 の まま に コー ディ ング する と 次 の よう に な る 。. 

200 Y ニ X*X*※X 十 3※ ま X*X 十 4※X 十 2 
する と , 上 記 の も の に 比べ て * が 3 個 少 な く な り , その 分 だ け 処理 時 間 は 短く 
な る . 


(2) た び た び 出る 式 は 変数 名 と し て 定義 
次 の 例 を 見 よう 

100 A=SQR1-X*%) 
110 IF K=1 THEN Y ニ ATN (X/A) 
120 IF K=2 THEN Y ニ ATN(A/X) 

これ を A を 用 いな いで 記述 する と 
110 IF K ニ 1 THEN Y 三 ATN (X/SQR(1 一 X * X)) 
120 IF K=2 THEN Y ニ ATN (SOR(1 一 X * X)/X) 

- 時 的 に し か 用 いな い 変 数 を 上 記 行 番号 100 の よう に 使用 する の は 原則 と し て 
控え る べき だ が (22 節 )。 この 例 の よう な 場合 は 許さ れる で あろ うし , 逆 に 勧 
め ら れる べき で ある . こ の 導入 に よっ て 平方 演算 が 1 回 * お よび 一 演算 が 各々 

1 回 減少 し て いる . 
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(3⑬) ルー プ 内 で 定数 と な る 演算 は 外 に 出 そ う 
次 の 例 を 見 よう . (これ は 直線 を 描く プロ グラ ム で ある .) 
10O FOR T=-5 TO 5 STEP -1 
110 X=X ロ +TxCOUS (AA) 
120 Y=YD+TxSIN( ム ) 
13Q PSET (320+4O*X 。100+20*Y) 
14O NEXT T 
この 例 で COS ⑳, SIN は , ルー プ 内 で 定数 で ある . し た が っ て , 次 の よう 
に 記述 され る べき で ある . 


100 C ロ =COS (An) : SH=SIN(Q) 

110O FUR 『=-5 TO 5 STEP -1 

12o X=X ロ +TwCOs Y=YD+Tx*SO 

13O PSET (320+40*X。100+2O*Y) 

14Q NEXT T 
こう する こと で , 100 回 の SIN, COS の 関数 計算 が 節約 され た . 
この 例 で 分 か る よう に , ルー プ 内 に 冗長 な 計算 が ある と 処理 速度 が 極端 に 低 

く な る 。 十分 注意 すべ き で ある . 


(4⑭) 文法 違反 の すす め 

た と えば 配列 変数 の 添字 が 整数 だ か ら と いっ て いち いち 

A (INT)) 

と いう コー ディ ング を する 必要 は な い . 単に A(X) で 良い ( 注 . NEC PC-8801/ 
9801 は この 技法 が 使え な い ). この よう に 違反 し て も よい よう な 文法 違反 は 多用 
し て , つま ら ぬ 演算 は 削減 すべ き で ある . 

以上 の よう に , ちょ っ と し た 工夫 で 演算 回 数 は 大 幅 に 減少 させ られ る こと を 
理解 し て も らい た い . 


コン ビュ ー タ も 人 間 と 同様 , 計算 に は 時 間 が か か る こと を 再 認 し よう . 
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0 割り 算 の 回 数 は 少な ぐ 


FORTRAN な どの コン パイ ラ 言 語 で も そう だ が , BASIC で は 割り 算 よ り も 

掛け 算 を 多く 用 いる よう 注意 する と よい . た と えば 次 の 数 式 
3 
を コー ディ ング する と き , 次 の 二 つ が 考え られ る . 
X=A/B/C X=A/(B * C) 

この と き , 左側 は 除法 が 2 回 , 右側 は 乗法 除法 が 各々 1 回 で ある . そし て 我々 
は 右側 の コー ディ ング を 勧め る の で ある . 実際 NEC PC-9801 で 測定 し て みる 
と , 右側 の 方 が 1 割 ほど 処理 時 間 が 短い . 

特に 下位 機種 の パソ コン を 利用 する と き 。 パ ソコ ン に 内 蔵 き まれ て いる マイ ク 
ロ プ ロ セ ッ サ の 命令 に 除算 が な いた め , 除算 を ソフ ト で サポ ー ト する こと に な 
り 多 大 な 時 間 を 乗法 より も 費やす こと に な る 。 し た が っ て , この 節 の 技法 は 非 
常に 有効 な も の と な る . 

一 般 に 実行 速度 の 大 小 か らい っ て , 次 の 不等式 が 成立 する . 

の 実 行 速度 >ー の 実行 速度 > * の 実行 速度 >/ の 実行 速度 

し た が っ て , 我々 が プロ グラ ム を コー ディ ング する 際 。 で きる こと な ら 除 算 よ 
り も 乗法 を , 乗法 より も 減 法 を 減 法 より も 加法 を 用 いた コー ディ ング を すべ 
き で ある . た だ し , 17 節 で も 述べ た よう に , BASIC 言語 の 特徴 か らい っ て , こ 
の 節 で 述べ た 除法 以外 は あま りこ の 技法 の 効果 は な いこ と を 述べ て お こう . 


除法 は な る べく 乗法 に 置き 変え て コー ディ ング し よう . 
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0 式 数 計算 の 商 , 灰 り は \,MOD で 


多く の 書物 に は , 整数 計算 に お ける 商 と 祭り の 求め 方 の 方 法 と し て 次 の よう 

な 方 法 を 紹介 し て いる . A を B で 割っ た 商 を Q, 余り を R と する と 

100 0Q=INT (A/B) 

110 R=A-B*0 
特に FORTRAN に 慣れ た 人 の 著作 に この 紹介 が 多い の は お も し ろ い こと で あ 
る . 

BASIC は イン タプ リタ 言語 で ある と いう 特性 上 。 な る べく 命令 を 簡潔 に 記 
述 す る こと が 望ま し く , その た め に BASIC は 多様 な 命令 を 我々 に 提供 し て く 
れ て いる . この 商 余り の 計算 で も BASIC は 次 の よう な 簡単 な 命令 を 用 意 し て 
くれ て いる . すなわち , 上 の 命令 は 次 の よう に 記述 で きる . 

100 0=A\B 
110 R=A MODB 
この 書き 変え に よっ て 計算 時 間 は 半減 され る . 

た だ し , 注意 せ ね ば な ら な いこ と は , 上 記 変数 の A, B が 実数 型 で ある と き 
で ある . 実数 型 変数 で も , その 中 に 入っ て いる 値 が 整数 な ら 問 題 は な い が , 小 
数 を 伴う と き は 多く の パソ コン で は A, B の 小数 部 は 切り 捨て られ て 計算 され 
る . し た が っ て 上 の プロ グラ ム で 

A=3, B=0.4 
の と き は , 0 割り エラ ー が 発生 し て し まう . (NEC PC-8801/9801 は 四捨五入 さき 
れる .) 

\, MOD 計算 は あく まで 整数 型 の 計算 の た め の も の で ある . プロ グラ ム 中 で 
この 演算 を 用 いる と き に は 十分 その こと に 注意 し て お か ね ば な ら な い . 


整数 計算 に は 色々 な 技法 ・ 命 令 が 多く て 用意 さ れ て いる こと を 知っ て お こう . 
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2 切り 描 て ・ 切 り 上 げ ・ 
四 搭 万 入 は 整数 型 で 


正 の 数 X の 小数 点 以 下 の 切り 捨て ・ 切 り 上 げ ・ 四 捨 五 入 に つい て は , 多く の 
BASIC の 入門 書 は 次 の よう な 命令 を の せ て いる . 
切り 捨て Y=INT (X) 
切り 上 げ Y=INT (X) :IF X>Y THEN Y=Y+1 
四捨五入 Y=INT (X.5) 
ここ で , も し X の 値 が 整数 型 の 変数 に 納まる 範囲 。 す な わ ち 32767 以下 の 正 
の 数 の と き に は , この 切り 捨て 等 の 方 法 に も っ と 簡潔 な 技法 が ある . すなわち 。 
上 記 命 令 群 の 中 の Y を 整数 型 に し て お く の で ある . そう する こと で , 次 の よう 
に 簡潔 に コー ディ ング され 直せ る . 
切り 捨て Y%=X 
切り 上 げ Y%=X:IF X>Y% THEN Y%=Y%+1 
四捨五入 Y%=X+.5 
変数 名 の 末尾 に % を つけ る と , 整数 型 変数 と な る こと を 利用 し て いる . 特に 。 
すでに 整数 型 宜 言 が な され て いる 変数 に つい て は も っ と 簡単 で ちる. すでに 次 
の 宣言 が な され て いる と し よう . 
DEFINT K 
この と き , この K を 用 いて 上 記 の 命令 は 次 の よう に な る . 
切り 捨て K ニ X 
切り 上 げ K=X:IF X>K THEN K ニ K+1 
四 捨 五 人 K ニ =X+.5 
最初 に あげ た INT 関数 を 用 いた コー ディ ング に 対し て 。 ず い 分 と すっ きり し 
た も の に な っ た で あろ う . 
この プロ グラ ミン グ 技 法 は 。FORTRAN な ど で す で に お な じみ の も の と な 
っ てい る. な ぜ こ の よう な こと が 可能 か に つい て は , マニ ュ ア ル を 読ん で も ら 


いた い 、. 
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NEC の PC-8801/9801 で は この 有名 な 技法 を 用 いる こと は で き な い .K を 整 
数 型 変数 。 X を 実数 型 変数 と する と 

K=X 
と いう 等 式 に 対し て , X の 小数 点 以下 を 四捨五入 し た も の が K の 中 に 入る よう 
に PC-8801/9801 は 作ら れ て いる . し た が っ て , これ ら の パソ コン を 用 いる と き 
に は 次 の よう に コー ディ ング する 。. 

切り 捨て K=X-.5 

切り 上 げ K=Xー.5:IF X>K THEN K ニ K+1 

四捨五入 K=X 
この PC-8801/9801 用 の コー ディ ング で 切り 捨て ・ 切 り 上 げに つい て は , 何 か ぎ 
こち な さ を 感 じ る . これ ら の 機種 に つい て は , プロ グラ ム の 分 か りや すさ を 損 
な わな いた め に 。 オー ソ ド ッ クス な INT 関数 を 用 いる 方 法 の 方 が よい で あろ 


と 


工夫 し だ いで , めん どう な 関数 な ど を 省く こと が で きる こと を 覚え て お こう . 





(N 桁 目 の ) 切り 捨て ・ 切 り 上 げ ・ 四 捨 五 入 





N 桁 目 以 下 の 切り 捨て ・ 切 り 上 げ ・ 四 捨 五 入 に つい て は 次 の よう に プロ 
ミン グ す る 。 
切り 捨て Y=INT(X/10^ N) * 10^N 
切り 上 げ 、Y=INT(X/10^N) * 10^N:IF X>Y THEN Y=Y+10^N 
四捨五入 Y=INT (X/10^N+0.5) * 10^N 
この 式 で N=0 と お け ば , 本 節 で 述べ た 小数 点 以 下 の 扱 い に な る . 
小数 点 以下 第 N 桁 以降 の 切り 捨て ・ 切 り 上 げ ・ 四 捨 五 信 に つい て は 。 上 
記 の 式 の N に 一 N を 代入 すれ ば よい . 


グ 
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2 整数 演算 ば 整数 型 で 


結論 を 先 に 述べ る と , 実数 型 演算 より も 整数 型 演算 の 方 が 処理 スピ ー ド が 束 
い . し た が っ て ,。 大 きく な い 整 数 (一 3278 か ら 32767 の 値 ) に つい て の 計算 は 
整数 型 で 行う べき で ある . 

理由 は こう で ある . 多 く の パ ソコ ン は 8 ビッ ト ま た は 16 ビッ ト の 演算 レジ ス 
タ (実際 に 計算 を 行う と ころ ) を も っ て いる . し た が っ て 。 実数 型 の 場合 一 つ 
の 数 値 は 4 バイ ト で 表現 され て いる た め , その レジ スタ を 4 個 な いし は 2 個 連 
結 し て 計算 を 実行 せ ね ば な ら な く な る . その た め の 準 備 に CPU は 大 きく 時 間 
を と られ る . それ に 対し て 整数 型 は 2 バイ ト で あり , 演算 レジ スタ は 2 個 な い 
し は 1 個 で すみ , 実数 型 の 半分 で すむ こと に な る . その 分 だ け CPU は 実行 速度 
を 大 きく する 。. 

















准 算 レジ スタ (8 ビッ ト X4) 六 算 レジ スタ (8 ビッ ト X2) 
単 精度 実数 型 (32 ビ ッ ト ) 帯 数 型 |(16 ビ ピット) 














整数 刑 を 用 いる と き , その 変数 名 に 9%% を つけ れ ば よい . 

( 例 ) NO%,.K%, MB% 

し か し 見 や すさ , お よび コー ディ ング の し や すさ か ら プ ログ ラム の 先頭 で 定 
義 し た 方 が よい . 

( 例 ) DEFINT IL-N 





この 宣言 の し か た で ある が , 我々 は 上 例 の よう に 1 か ら N まで の 頭 文 字 を も つ 

も の を 整数 型 と する こと を 勧め る . これ は FORTRAN の 標準 的 な 宣言 と 一 致 

する が , 多く の プロ グラ マ は 1ーN を 整数 型 と し て 利用 し て いる か ら で あ り , ま 

た 多く の 応用 数 学 の 書物 の 公式 で i-n を 整数 と し て 用 いて いる か ら で あ る . 
コン ピュ ー タ は 整数 計算 を 得意 と する . 
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うす る こと で 宣言 文 に 宣言 され た 頭 文 字 を も つ 変 数 は すべ て 整数 形 と な る . 





4 (一 1)N の 求め 方 


科学 技術 計算 で は , し ば し ば (1) " と いう 形 の 計算 を する . それ も ルー プ 
計算 内 部 で 用 いら れる こと が 多い た め , この 計算 技術 を し っ か り 知 っ て お く と 
非常 に 処理 速度 を 向上 させ る こと が ある . 

まず 素直 に 次 の コー ディ ング が 考え られ る . 

100 X= (-1)^N ⑪ 
勿論 N は 整数 で ある . し か し , この 記述 の し か た だ と 計算 時 間 が N に ほぼ 比例 
する . し た が っ て , 大 き な N の 計算 で は 効率 が 非常 に 悪く な っ て し まう . 処理 束 
度 の 向上 を 求め る と き , 我々 に は 上 記 の 方 法 で な く 次 の コー ディ ング を 勧め る 。 

100 X=1:IF N MOD 2=1 THEN X ニ ー1 ⑫ 
こう する こと で , 処理 速度 は 前 記 に 比べ て 半減 する (も ちろ ん N の 値 に も よる 
が ). 

この (1 )* の 形 の 計算 方 法 に は 有名 な 方 法 が 多く ある . それ を いく つか 示 
し て みよ う . 


100 X=1:IF N AND 1 THEN X ニ ー1 ⑬) 
100 X= (-1)^(N AND 1) (⑭) 
100 X=2* (N 二 1 AND 1)ー-.5) ⑮) 


NEC の PC-9801 で チ ナス ト し て みる と (テス ト の し か た に も よる が ), 一 番 速 い 
の が (2), それ に 続い て (3X5), 少し 遅れ て (4), それ か ら か な り 遅 れ て (1) と な っ て 
いる 。. 


くり 返し の アル ゴリ ズム に は , 必ず 良い 工夫 が ある も の で ある . 
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2 蘭 単 な メモ リ 節 約 法 


パソ コン は , その 作 格 上 メモ リ 容 量 が 小さ い . その た め 。 少し 大 き な プ ログ 
ラム を 作ろ うと する と , 簡単 に out of memory な ど と いう メモ リオ ー バ パー の メ 
ッ セ ー ジ が 出力 され て し まう . これ を 避け る の は 。 本質 的 に は 設計 段階 の 問題 
で ある が , ここ で は 設計 の 基本 を 変え な いで すむ メモ リ 節 約 法 を まとめ て 示 そ 
う (この 中 の いく つか は 前 章 ま で に 紹介 ずみ で ある ). 


(1) 小さ い 数 の 整数 計算 は 整数 形 の 変数 を 用 いよ う 

整数 型 変数 は 2 パイ ト の , 単 精度 実数 型 は 4 バイ ト の , 倍 精 度 実数 型 は 8 バ 
イト の メモ リ 単 位 で 表現 され る . し た が っ て , 小さ な 整数 を 扱う 計算 は 整数 弄 
で 行う と メモ リ の 節約 に な る . 


(2) マル チ ・ ス テー トメ ント の 勧め 
1 行 の 命令 文 が 長く な る こと は , プロ グラ ム を 分 か り に くく する 原因 と な る 
が , メモ リ の 節約 と いう 観点 か ら す る と 1 行 に で きる だ け 詰 め て 命令 を 記述 し 
た 方 が 良い こと に な る . た と えば 下記 の 左右 二 つ の コー ディ ング を 見 て みよ う . 
100 A=1 100 S=1 : X ニ 1 
110 B=1 
左 の 命令 は メモ リ を 18 バイ ト 専 有する が , 右 の は 13 バイ ト で すむ . 1 行 に ま 
と め る こと で 行 番号 の た め の メ モリ と テキ スト 制御 文字 の た め の メ モリ な ど が 
節約 で きた の で ある . 
基本 的 に は , 1 行 に 1 命令 を 記述 すべ き で ある . し か し , 1 行 に 複数 の 命令 ( マ 
ル チ ス テー トメ ント ) を 記述 する こと も , この よう な メリ ッ ト が ある た め 。 あ 
まり その 基本 の み を 忠実 に 守る 必要 は な い だ ろ う . 


(3) ビッ ト に 意味 を も た せよ う 
いま 。 次 の 例 を 考え よう . すなわち ある 会 社 の 社員 の デー タ を コン ピュ ー タ 
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に 記憶 させ る こと を 考え て みる .。 色々 な デー タ が ある が , ここ で は 男女 の 区 別 , 
既婚 か 未婚 か , 事務 か 技能 職 か ,、 の 三 つ を 考え よう . この 3 個 の アー タ は ビッ 
ト に 意味 を も た せる と 簡単 に 一 変数 (整数 型 ) に 収まっ て し まう . 


整数 型 変数 は 16 ビッ ト か ら 成 り 立っ て いる . 
012 …… 15 ビ ピット 


職種 ヒッ ト 男女 ビッ ト 
既婚 ビッ ト 
この 16 ピッ ト の うち 三 つ の ビッ ト (上 図 で は 下位 の 3 桁 ) に 意味 を も た せる 
の で ある . 1 ビッ ト は 1 か 0 し か と れ な い . た と えば , 男女 ビッ ト で は 1 が 男 0 
が 女 , な ど と あら か じ め 約 束 し て お く こ と で , 1 変数 を 用 意 し な く て も 十分 1 ビ 
ッ ト で 男女 の 区 別 が で きる の で ある . ここ で 男 か 女 か は 次 の よう に し て 調べ る 
こと が で きる . この 整数 型 変数 の 名 前 を F と する と 
男 :F AND &H0001=1 
女 :F AND &HO001=0 
この ビッ ト 演 算 の 値 0。 1 が まさ に 男女 の 区 別 を 可能 に する の で ある . 
この よう に , 二 者 択 一 的 な デー タ は 一 つの 整数 型 変数 で 16 種類 も 表現 で きる 
こと に な る . 


(4) 同時 に アク セス する ファ イル は 少な く 
OPEN し た ファ イル は , な る べく まとめ て 利用 し て ,。 す ぐに CLOSE すべ き 
で ある . 同時 に OPEN し て いる ファ イル が 多い と , それ に 比例 し て BASIC は 
作業 領域 を 我々 ユー ザ 領域 内 に 確保 する . その 分 だ け メ モリ が と られ , 我々 の 
プロ グラ ム の 入る と ころ が 小さ く な っ て し まう の で ある 。. 





以上 四 つ の 簡便 な メモ リ 節 約 法 を 示し た が , 最初 に も 述べ た よう に 設計 段階 
で し っ か り し た メモ リ 予 測 を し , 対処 すべ き で あろ う . 


コン ピュ ー タ は , 人 間 の よう に は 無限 の 記憶 力 が な いこ と を 意識 し よう . 
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配列 計算 ば 帰納 的 に 


コン ピュ ー タ は 帰納 的 な 計算 の し か た を 得意 と する . た と えば 利息 計算 等 で , 
必要 な 等 比 数 列 は 次 の よう に 記述 され る . 


1OO N=2 
110 At(1 
120 FOR K=1 TO N-1 
1 さ O (KR+1)=A(K) *R 
14O NEXT K 





IM Aa(2o) 






これ は 初 項 2。 公 比 2, 項 数 20 の 等 比 数 列 の 一 般 項 A (K) を 求め る も の で あ 
る . も し , これ を 数 学 の 公式 で 下記 の よう に 記述 し た と し よう . 


10O 
11Q 
12Q 
13O Aa(K)=A(1) *R^(K-1) 
140 NEXT K 





上 下 比 較 す れ ば , 明らか に 上 例 の 方 が 優れ て いる だ ろう . すなわち むだ な 計 
算 を 下 の 例 の よう に し て いな いか ら で あ る . 

我々 は 配列 を 論理 的 に 処理 し よう と する と き , し ば し ば その 配列 を 帰納 的 に 
定義 むる こと が で きる 。 コ ンピュータ は ,。 まさ に その 形 を 得意 と する の で , そ 
の よう な 帰納 的 な 定義 を し っ か り 利 用 し て も らい た い . 

コン ピュ ー タ に も 計算 の 得手 , 不得 手 が あ る こと を 知 ろ う / 


| Meme | コン ピュ ー タ の 得手 ・ 不 得手 


一 つの 論理 の も と に ゴシゴシ 計算 する こと は , コン ピュ ー タ は 得意 で あ 
る . し か し , 色々 な 条件 の 中 か ら 最 適 な も の を 見 つけ る , と いっ た こと は 
どう も 苦手 の よう で ある . AI (人 工 知能 ) は まさ に その 苦手 へ の 挑戦 で あ 
ろう . 
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9 正負 0 の 判定 は SGN 関 数 
が 便利 


我々 は , し ば し ば 次 の よう な 論理 を と る . 


270 IF D>0 THEN 1000 
280 IF D<0 THEN 2000 
290 IF D=0 THEN 3000 


この よう な 形 の と き , SGN 関数 を 利用 する と 1 行 で こと が 足り る . 
270 ON SGN (D) 二 2 GOTO 2000, 3000, 1000 


関数 SGN (X) は , メ >0 な ら 1, X ニ 0 な ら 0, XX<0 な ら 一 1 を 値 と する も 
の で ある . し た が っ て 正 か 負 か , と 
いっ た 数 値 の 符号 だ け の 性 質 を 抽象 | | 
化す る に は , 大 変 便利 な 関数 で ある . | | 
た と えば 次 の よう な 台形 波 を 描か せ 
る に は SGN は 威力 を 発揮 する . 

これ は 次 の よう に コー ディ ング され る . 








10Q CLS さ 

110 0X=O: DY=1OO=P= ミ 。 14159 

120 LINE (O。UY) 一 (6 る 9。 ロ Y ) 

1 さ O FOR T=O TO 1O*P STEP P/1OQ 
140 XG=10+20* 征 

15o S=SGN (INT (SIN(T) *20) 〉 
16o UN S+1 GUTO 180。190 

170 PSET (XG,6O) : BDTO 2oo 
18O LINE (XG,60) 一 (XB。14Q) : GBDTD 200 
19o PSET (XG。14O) 

2oO NEXT T 

21o END 


プロ グラ ミン グ に も 定石 が ある こと を 覚え よう . 
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短 り 9 プロ グラ ム が 速 ) プ ロ 
グラ ム で は な / け 


次 の 例 を 見 よう . 


270 ITF K<1 OR K>5 THEN ささ O 
28O IF K=1 
29O0 IF K=2 
さ OO IF K= さ 
さ 1O IF K=4 
さ 20 CIRCLE 
さき 3O_『 





これ は IF 文 が 乱立 し 冗長 な た め 。 次 の よう に 書き 変え た と し よう . 


270 1F K<1 DR K>5 THEN さ 1O 

280 R(1)=70:R(2) =5O: KR( さ ) = さ 0:R(4)= ニ 10 
290 (1 ) =5:C(2)= さ = ( さ ) = ニ 7 ミ (4) =O 

さき QO_ CIRCLE (DX。UY) 。R(K) 。C(K) 

き 10 


IF 文 が 乱立 し た と き の 回 避 の し か た と し て 有名 な 技法 を 用 いた (18 節 参 
照 )、 こ こ で , いま KK=3 で この 論理 に 実行 が 移さ れ た と する . する と 上 例 で は 
合計 8 個 の 命令 (IF 命令 が 5 個 ,R。C へ の 代入 が 2 個 、 グラフィ ッ ク 命 令 が 
1 個 ) を 実行 する の に 対し , 下 の 例 で は 合計 10 個 (IF 命令 が 1 個 , 代入 命令 が 
8 個 、 グラフィック 命 令 が 1 個 ) と な り , 下 の 方 が 上 の 方 より も 2 個 実行 命令 が 
多く な る . 

プロ グラ ミン グ 技 法 で は , 明らか に 下 の 例 を 勧め られ る が , 純然 と 処理 速度 
だ け を 考え る と 上 の 例 の 方 が 良 ら こと に な る . すなわち , 簡潔 な プロ グラ ム よ 
り も 冗長 な プロ グラ ム の 方 が 処理 速度 が 速い 場合 が ある の で ある . 我々 は 美 し 
い プ ログ ラム か , 速い プロ グラ ム か 。 と いう 二 者 択 一 に 迫 ら れる わけ で ある が , 
この 結論 は その 場 その 場 で 決め て ゆく べき で あろ う . 

も う 一 つの 例 を 示 そ う . 2 節 等 で 我々 は 度々 プロ グラ ム は モジ ュー ル 化 し て 
作成 する こと を 主張 し た が , この モジ ュー ル 化 は , 一 般 的 に いっ て 処理 速度 を 
遅く する .、 た と えば , パッ ファ (入出 力 の た め の メ モリ ) を 備え た プリ ンタ に 。 
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計算 結果 を 出力 する こと を 考え よう . 我々 は , まず 先 に 計算 し , それ を ファ イ 
ル に 保存 し て 最後 に プリ ンタ に 出力 する よう に 述べ た (40 節 )、 し か し , これ に 
つい て は 計算 し な が ら プ リン タ に 打ち 出し た 方 が スピ ー ド は 速い . すなわち , 
計算 結果 は すぐ に プリ ンタ の バッ ファ に 送ら れ , プリ ンタ が 打ち 出す 間 に CPU 
は 次 の 計算 に 移 れ る の で ある . し た が っ て 一 回 限り の 計算 で ,。 か つ す べ て が 順 
調 に ゆけ ば (すなわち 紙 詰まり な ど が 起こ らち な けれ ば ), プロ グラ ム を モジ ュー 
ル 化し 長く する こと は 必要 の な いこ と に な る の で ある . 

この 第 2 の 例 に つい て も , どちら を 選ぶ べき か は プロ グラ マー の 判断 に よる . 
し か し , 経験 上 多く の 場合 本 書 で 主張 する 原則 を 守っ た ほう が 結果 的 に は ” 
良い プロ グラ ム ” に な る 。 


原則 は ケー スバ イケ ー ス で 利用 し て ゆこ う . 





計 
の 


コン パイ ル 言 語 (FORTRAN,COBOL な ど ) で は , どん な に 長い 変数 
名 を つけ て も , 処理 効率 に は 影響 を 与え な い . ほん の 少し コン パイ ル 時 間 
を 損する だ け で ある . これ に 対し て BASIC で は 影響 を 与え る . まず メモ リ 
を 損する . BASIC は 変数 名 を その まま の 形 で デー タ 領 域 に 保存 し て お く 
か ら で あ る . また この こと と 関係 する が 計算 時 間 に も わずか に 影響 を 与え 
て し まう . し か し , これ ら の 影響 は 通常 の パソ コン の 処理 で は 問題 に な る 
こと は な く , 分 か りや すい ぃ 変数 名 を つけ よ , と いう 原則 は 変ら な い . 
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9 方 言 の す すめ 


日 常 会 話 に お いて , 方 言 は あま り 好 まれ て は いな い . コン ピュ ー タ の 世界 で 
も この 方 言 の た め に 色々 な 問題 が お 生じ て し まう . た と えば せっ か く 一 つの 機種 
で 開発 し た プロ グラ ム も , その まま で は 他 の 機種 に は 使え ない, と いっ た 苦情 
が よく 聞か れる . 方 言 は プロ グラ ム の 汎用 性 の 妨げ に な る . 

し か し , パソ コン の BASIC に 関し て は 方 言 と いう も の を 無 下 に 退け る わけ 
に は ゆか な い . コン ピュ ー タ に お いて 方 言 が だ 生じ る に は いく つか の 理由 が ある 
が , その 中 で 各社 が “便利 で あろ う " と 拡張 機能 と し て 親切 に つけ 加え て くれ 
た も の が 多い . それ を 利用 する と 当然 コー ディ ング が 楽に な り 命 令 数 も 一 般 的 
に 少な く な る . BASIC と いう 言語 の 特性 上 命令 数 が 少な く な る こと は , ブロ グ 
ラム の 処理 効率 上 大 い に 役 に 立つ こと な の で ある . そこ で 我々 は 次 の よう に い 


いた い 。 
BASIC の コー ディ ング に お いて は 便利 な 方 言 を 多用 し よう . 


た と えば 次 の 命令 を 見 て みよ う . 
270 CIRCLE (OX, 0Y), R, C1,,,,F, C2 
これ は NEC PC-8801/9801 に つい て いる グラ フィ ッ ク 命 令 で ある が , これ を 
“標準 語 " で 記述 する と 次 の よう に な る . 
270 CIRCLE (OX, 0Y), R, C1 
280 PAINT (OX。OY), C2, C1 
明らか に コー ディ ング が 楽に な り , 命令 数 も 少な く な っ て いる . 
方 言 が 多い の は 次 の 3 つの 分 野 で ある . 
(1) グラ フィ ッ ク 命 令 
(2) 漢字 処理 関係 
(3) サウ ンド 命令 
特に 漢字 処理 に つい て は , 日 本 と いう 国内 だ け の 問題 で あり , か つ 最 近 に な っ 
て 急速 に 発展 し て きた も の で ある か ら , 各社 まち まち の 命令 が 各 パ ソコ ン に 備 
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えら れ て いる . 逆 に いえ ば , 方 言 を 用 いな けれ ば プロ グラ ミン グ が で き な い の 
で ある ((3) の サウ ンド 命令 に つい て も 事情 は よく 似 て いる ). 

方 言 が 多い の は , パソ コン の 学習 に は 困っ た こと で あり , か つっ 苦労 し て 作成 
し た ソフ トウ ェ ア が 。 他 機種 に 利用 で き な い と いう 弊害 が ある が 。 当面 は し か 
た の な いこ と で あろ う . 我々 は 各自 の マニ ュ ア ル を し っ か り 読 み ,。 これら の 方 
言 を 自由 に 使い こなせ る よう に すべ き で あろ う . 





| ラベ ル 





パソ コン の 上 位 機種 で は 行 番号 に ラベ ル を つけ , GOTO 命令 な ど で は こ 
の ラベ ル で 飛べ る よう に な っ て いる . 本 節 の 最後 の 例 は , この こと を 利用 
し て いる . も し この ラベ ル の 機能 が な いと き に は どう する か と いう と 。 上 
手 に 注釈 文 を 用 いる こと を お 勧め する . た と えば 

200 IF D<0 THEN*IMAGE 


240 *IMAGE 
の と ころ を 次 の よう に する の で ある . 


200 IF D<0 THEN 240 


240 , IMAGENARY PROCESS 
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9 ソー ト 投 寺 


デー タ を ある 基準 に 従っ て 並べ 換え る こと を ソー ト と いう . た と えば , 成績 
や 従業 員 番号 , 給料 年齢 な どの 数 値 デ ー タ を 。 数 値 の 大 きい も の か ら 小 さ な 
も の へ , また は その 逆 に 並べ 換え た り 。 人 の 名 前 や 。 地名 。 英 単語 な どの 文字 
デー タ を 五 十 音 順 や アル ファ ベッ ト 順 に 並べ 換え た りす る の が ソー ト で ある . 
この 技法 は , コン ピュ ー タ で デー タ を 処理 する 際 に 頻繁 に 使わ れる も の で , 数 
ある 有名 な プロ グラ ミン ダグ 技法 の 中 で も 特に 重要 な 技法 な の で ある 。 

デー タ を ある 基準 に 従っ て 並べ 換え る 方 法 は 一 通り で は な い . これ は 数 字 が 
書い て ある た くさ ん の カー ド を で た ら め に 並べ て お いて 。 い ろ い ろ な 人 に 。 そ 
れ ら の カー ド を 小さ な 数 字 の カー ド が 。 た と えば 左側 に くる よう に 並べ 換え て 
も ら え ば わか る よう に 。 人 に よっ て 。 実に 様々 な 方 法 で 並べ 換え る も の で ある . 
コン ピュ ー タ を 用 いて デー タ を 並べ 換え る 場合 に ち た くさ ん の 方 法 が あり 
色々 な プロ グラ ム が 考え られ て いる . その 中 で も 一 番 簡単 な 方 法 は , 次 の 選択 
ソー ト と 呼ば れ て いる も の で あろ う . 


100_ INPUT " テーー タ スウ ON "saN 

110 DIN X(N) 

120 FOR エ =1 TO NsX(T)= ニ INT(1O1*RND(1) ) :NEXT エ 
13O 

14O FDR J=1 TOD N-1 

15O FOR K=J+1 TOD N 


1eo IF X(①) >=X(K) THEN 18Q 
17o MAP_X( け ) 。X(K) 

1BO NEXT K 

190 NEXT J 

2oo 


210 FOR 1=1 TO NzPRINT X(1I):NEXT エ 
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[入出 力 例 ] 
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この 選択 ソー ト は 次 の 方 法 で デー タ を 並べ 換え て いる . 

N 個 の デー タ が 配列 X(1), X(2) XX(3)。 …… > XX (N) に 格納 され て いる と 
き , まず は X(①⑪ と X(2, X(3。 …… X(N) の 各々 の デー タ を 比較 交 換 し 。 
N 個 の デー タ の 中 で , 最大 値 を X(1) に 格納 する . 次 に X(2) と X(3) X(⑭, …… 
X (N) の 各々 の デー タ を 比較 交換 し , X (2) か ら X (N) まで の デー タ の 中 で の 
最大 値 を X(2) に 格納 する . 以下 同様 に し て , X (])。 X(] 十 1),。 ……X (N) の 
中 で の 最大 値 を X (]) に 格納 し て いけ ば , ]=N 一 1 の と き の 処 理 が 終了 し た 段 
階 で , 

X (1)X (2) ミ X (3)=…… ミ X (N) と な る . この 方 法 で , 最大 値 を 最小 値 に 換 
えれ ば , X (1) ミ X (2) ミ X (3) ミ ……SX (N) と な る 。 

デー タ 数 が 少な いと き は 。 この 選択 ソー ト を 用 いて 並べ 換え て も , コン ピュ 
ー タ の 高速 処理 能力 に よっ て 。 わずか な 時 間 で 並べ 換え は 終了 する . し か し 。 
デー タ 数 が 大 きい と き に は , コン ピュ ー タ と いえ ども 多く の 処理 時 間 を 必要 と 
する . NEC の PC-8001mk II な る コン ピュ ー タ を 用 いて 測定 し た 結果 に よる 
と , デー タ 数 が 1000 個 の と き は 約 1 時 間 30 分 わか か っ て し まう . これ は 選択 
ソー ト に よる と ,N 個 の デー タ を 並べ 換え る の に N(N-1) 2 回 の 比較 , 変換 処 
理 を 必要 と し , デー タ 数 が 1.000 で ある と , 499.500 回 も の 比較 , 交換 処理 が 行 
われ て し まう か ら な の で ある 。. 

この と き , 次 の クイ ッ ク ソ ー ト と 呼ば れ て いる ソー ト プ ロ グラ ム で 並べ 換え 
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ーー 


を 行う と 


1.000 個 の デー タ を 3 分 弱 の 処理 時 間 で 並べ 換え て し まう . プロ グラ 


ム は 複雑 に な っ て し まっ た が , 処理 時 間 は 飛躍 的 に 短縮 化 さ れ た こと に な る . 
これ は , デー タ の 比較 や 交換 の 回 数 を で きる だ け 少 な くす る よう に 工夫 し て あ 
る か ら な の で ある . 











10O INPUT " テーー タ スウ "is 
110 DIM X(N) 。LS(N/2) 。RS (N/2) 
12O FOR エニ 1 TO NsX(T)=INT(1O1*RND(1) ) :NEXT 1 
13O 
140 =N 
15o =X((L+R) /2) 
160 IF X(1)>T THEN エニ =I+1:GOTO 16o 
170 IF T>X(J) THEN =Jー1 = GTO 17o 
18O IF 1I く J THEN SMAP X(J) 。X(T) = エニ エ +1 : コ ニコ ー1 : GUTO 16O 
19O IF エニ =J THEN エニ 1+1: = ニー1 
200 TF L>=J THEN 2 さ O 
210 IF 1I く R THEN LS(K) =L: RBS(K) = ニ J = ドニ に +1 = し =1: GBDTD 15O 
220  R=JiGDTO 15o 
230 IF I<R THEN し =I:GDTO 15o 
240 K=Kー1 
250 IF K>=O THEN し =LS(K) :R=RS(K) : BUTO 15o 
26o 
270 FOR エニ =1 TO NiPRINT X(TI):NEXT 1 
[入出 力 例 ] 
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その 他 。 いろ いろ な ソー ト の 方 法 が あり , 1 冊 の 本 を 構成 する ほど で ある . 一 
度 は じっくり 勉強 し て みる こと を お すす めし た い 
( 注 ) わか る 超 高 速 ソ ー ト プロ グラ ミン グ 

高速 ソー ト ・ マ ー ジ ・ サ ー チ ・ プ ログ ラミ ング 法 
を 参照 され た い . 

た だ し , ここ で 注意 し て お きた いこ と は ,。 いろいろ な ソー ト の 方 法 が ある が , 
それ ら の 中 で 優劣 は つけ が た く , デー タ の 種類 や 用 途 に 応じ て , 使い わけ る 必 
要 が ある と いう こと で ある . その た め に は , 何 種類 か の ソー ト 技 法 を 身 に つけ 
て お く こ と は 有益 で あろ う . た と えば , 先 の クイ ッ ク ソ ー ト は 選択 ソー ト よ り 
も 優れ て いる よう に 見 える が , デー タ 数 が 少な いと き は 論理 が 簡単 で 使用 メ 
モリ の 少な い 選 択 ソ ー ト を 使用 し た 方 が 良い と いう こと に な る . 


2 組 以上 の 順序 づけ られ た レコ ー ド の 集団 (ファ イル ) や デー タ の 集団 か 
ら 1 組 の 順序 づけ られ た レコ ー ド 集団 (ファ イル ) や デー タ の 集団 を つく 
る 操作 を マー ジ と いう . 日 本 語 訳 で は 併合 と 呼ば れ て いる . この マー ジ 処 
理 は ,、 た と えば 次 の よう な 場合 に 使わ れる . 

(1) 前 日 まで の 売上 げ フ ァイル や 成績 ファ イル に 。 当日 分 の ファ イル を マ て 

ー ジ し て , 一 つの ファ イル を 作成 する 場合 
(2) いく つか の 支店 か ら 送 られ て きた ファ イル を まとめ あげ て 一 つの ファ 

イル を 作成 する 場合 
(3) マス ター ファ イル に 追加 する 場合 
(4) 大 量 の デー タ を ソー ト す る 場合 
人 ss 

その 他 あ げ れ ば きり が な い . この マー ジ 処 理 の 技法 も デー タ 処 理 を 行う 
上 で は 欠か せな いも の で ある 。. 


( 寺 文 堂 新光 社 ) 
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8 サー チ 投 法 


サー チ と は , 大 量 の デー タ の 中 か ら 必 要 な デー タ を 探し 出す こと で 日 本 語 
訳 で は 探索 と 呼ば t れ て いる . た と えば , 電話 帳 か ら 個人 名 を も と に その 人 の 電 
話 番号 を 調べ た り , 図書 目録 か ら 必 要 な 図書 を 探し 出し た りす る と き の よ うに 。 
デー タバ ンク と し て コン ピュ ー タ を 使う と き な ど に 頻繁 に 使わ れる 技法 で ある . 
サー チ も ソー ト と 同様 に いろ いろ な 方 法 が あり ,、 デー タ 処 理 を 行う 上 で は 欠か 
せな いも の で ある . 

一 番 簡単 な サー チ の 方 法 は , 順次 探索 法 と 呼ば れる も の で , デー タ や レコ ー 
ド を , それ ら が 格納 され て いる ファ イル の 最初 の 部 分 か ら 最 後 の 部 分 まで を 一 
つ ず つ シ ラミ つぶ し 的 な 方 法 で 探し て いく や り 方 で ある . た と えば , pencil 
apple, orange, bird, egg, cow。 200o, book, paper, cat の 順 で 並ん で いる 
10 個 の 英 単語 の 中 か ら , 必要 な 単語 を 順次 探索 で 探し 求め て , そ の 意味 を 調べ 
る プロ グラ ム は 次 の よう に な る . 


100 N=1O: DTM X*(N。1) 
11O FOR 1=1 TDN 
120 READ X ま (1T。O) 。X ま (T。1) 





13O NEXT 
140 「 

150 INPUT " 敵 単語 は "ijKE* 
16O PRIN RINT 


170 FOR 1=1 TO N 

1BO IF X*(T,O)=KE* THEN PRINT X ま (TO) 。X ま (1。1) 
190 NEXT r 

2oo END 

21o ・ 

220 DATA penci1。 釣 穫 
23O DaTA apple』 り ん ご 
240 DATA orange。 オ レン ジ 
250 DATA bird。 島 

260 DaTA egg, 卵 

270 DATA cow, 典 牛 

280 DATA zoo。 動物園 

290 DATA book。 本 

oo DaTA paper。 紙 

さ 10 DATA cat。 ネ コ 


7 フタ 


[入出 力 例 ] 





共 単 語 は ? book 


book 本 





( 注 ) 本 来 , サ ー チ 処理 は 外部 記憶 装置 に 保存 し て ある デー タ に 対し て 行う ちの で ある 
が , ここ で は 配列 X(1) 1=1。 2, 3……。10 を 外部 記憶 領域 と みな し て 処理 し て いる 。 


デー タ 数 が 10 個 や らい で ある か ら , 探し て いる デー タ が どこ に あろ うと も ,。 
この 順次 探索 法 で も , 瞬時 に 必要 な デー タ を 探し 出す が , 何 万 , 何 十 万 と ある 
デー タ を すべ て 調べ つく す の は 。 高速 処理 を 得意 と する コン ピュ ー タ と いえ ど 
も , か な り の 処理 時 間 を 必要 と する . 

こん な と き に 。 効率 よく デー タ を 探し 出す サー チ 技 法 が いく つか 考え 出さ れ 
て いる . その うち の 一 つ に , 2 進 探索 法 と いう も の が ある . 

この 方 法 は 。 あ ら か じ め デ ー タ や レコ ー ド を ソー ト し て お いて , 番号 を つけ 
て お き (最後 の 番号 を N 番 と し よう ), まず は N/2 番目 の デー タ と 比較 し て 。 
探し て いる デー タ が 1 番目 か ら N/2 番目 まで の 間 に あ る の か , それ と も N/2 
番目 か ら N 番目 まで の 間 に あ る の か を 判定 し , 前 者 の 間 に あ る と き は , さら に 
N/2* 番目 の デー タ と 比較 し , 後者 の 間 に あ る と き は (N/2) 十 (N/2*) 番目 の デ 
ー タ と 比較 し , 以下 同様 に 区 間 を 絞っ て いく こと で 。 効率 よく 探し て いる デー 
タ に ゆき つこ うと いう 方 法 で ある 先 の 英 単 語 の 例 を も と に プロ グラ ミン グ す 
る と 次 の よう に な る . 
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100 N=10:DIM X*(N。1) 
110 FOR 1=1 TO N 

120 READ X*(T。O) 。X ま (1。1) 

1 さ O_ NEXT I 

14O ・ 

150 INPUT " 敵 単語 は "jiKE* 

160 PRINT:PRINT 

170 LS=1: RS=N 

1BO IF R5-LS<O THEN PRINT "あり ませ ん ":BDTO 2<o 
190 D=INT((RS+LS) /2) 

200 TF KE* く <X ま (D。O) THEN RS=D-1 : BDTO 18o 
210 IF KE*>X ま (D。O) THEN LS=D+1:BDTD 18o 
220 PRINT X ま (D。O) 。X ま (D。1) 

23O END 

240 ・ 

25o DATA apple, り ん ご 

260 DaTA bird, 鳥 

270 DATA book 本 

2BO DATA cat,』 ネ コ 

29O DATA cow。 肉 邊 

OO DATaA egg, 卵 

さ 10 DATA orange」 オ レン ジ 

ミ 20 DATA paper, 紙 

ささ O DATA penci1 名 等 

40 DATA zoo。 動物園 


[入出 力 例 ] 








半音 語 は ? book 


book 本 





( 注 ) 英 単語 は ソー ト さ れ て , アルファベット 順に 並ん で いる も の と し て 処理 し て いる . 


順次 探索 法 だ と 最悪 の 場合 は , デー タ 数 分 だ け , 判定 処理 を くり 返さ な けれ 
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ば な ら な い が , 2 進 探索 法 だ と デー タ 数 を N と し た と き 最 悪 の 場合 で も logzN 
回 だ け 判 定 処理 を くり 返せ ば , 探し て いる デー タ に ゆき つく こと に な る . N= 
10.000.000 (一 千 万 ) の と き で も log。N の 値 は 約 23.25 で あり , た っ た 23~4 回 
の 判定 処理 で すむ こと に な る . この くら いで あれ ば , 短 時 間 で コン ピュ ー タ は 
サー チ 処 理 を 完了 する で あろ う . 

また , 2 進 探索 法 の 他 に も , ハッ シュ 法 と 呼ば れる 効率 の 良い サー チ 技 法 が あ 
る . これ は 。 辞書 を 我々 が 引く の に 索引 を 用 いる こと に 目 を つけ た 技法 で ある . 


( 注 ) サー チ 技 法 に つい て , 詳 しく は 高速 ソー ト ・ マ ー ジ ・ サ ー チ ・ プ ログ ラミ ング 法 ( 誠 
文 堂 新光 社 ) を 参照 され た い . 


ソー ト ・ サ ー チ ・ マ ー ジ は ,。 ファ イル の 中 の デー タ 構 造 と 密接 な 関係 が 
ある . 特に サー チ ・ マ ー ジ に つい て は 。 ファ イル の 中 の 各 デ ー タ が どの よ 
うな 関係 で 結び つけ られ て いる か で 処理 の 方 法 が 大 きく 変わ っ て し まう も 
の で ある . 

コン ピュ ー タ の 世界 で は ,、 ファ イル の 中 味 の デ ー タ に どの よう な 関連 を 
も た せ , どの よう な デー タ 構 造 を と ら せ る か は 非常 に 大 切な こと で ある . 
ある 必要 な 情報 を すぐ に 捜し 出せ (サー チ ), また デー タ の 追加 に 容易 に 対 
応 で きる (マー ジ な ど ) ファ イル ・ デ ー タ 構成 を つく る の は , 容易 な こと 
で は な い . この よう な こと を 研究 する コン ピュ ー タ の 分 野 を 。 デ ー タ ・ ペ 
ー ス と よん で いる . 近年 情報 が 複雑 に か ら み あい , か つ ス ピー ディ に 必要 
な 情報 を 得 ら れる こと が コン ピュ ー タ に 求め られ て いる が , その た め に は 
よい デー タ ・ ベ ペー ス を つく る こと が 不可 避 で ある . 

デー タ ・ ベ ー ス は , か つて は 大 型 コ ンピュータ の 分 野 で 用 いら れ た 用 語 
で ある が , 近年 パソ コン に も 普及 し は じ め て いる 。 パソ コン も 一 人 前 の コ 
ンピュータ と し て 社会 に 認め られ て きた の で ある . 














7 フフ 


第 7 章 


ファ イル 理 





処理 効率 を 低下 させ る 大 き な 要 因 と な る も 
の が ファ イル 処理 で ある . この ファ イル 処理 
を 如何 に 上 手 に 扱う か が 優れ た プロ グラ ム の 
条件 と も な る も の で ある . ここ で は この テー 
マ に つい て の 有名 な 技法 を 紹介 し よう . 











9 入出 力 回 数 は 少な ぐ 


数 値 計算 処 理 な ど を 除い た パソ コン 処理 の 場合 , 処理 時 間 の 多く は ファ イル 
処理 に 消費 され て し まう . それ は CPU の 処理 速度 に 比 し て 周辺 機器 の 処理 が 
圧倒 的 に 遅い た めで ある . た と えば プリ ンタ が 1 行 印刷 する 間 に , CPU は 
BASIC 命令 を 約 1,.000 ス テッ プ 計 算 し て し まう . したがって, 我々 は プロ グラ ム 
を 作成 する と き 多 少 CPU に 負担 を めか け て も , 入出 力動 作 を で きる だ け 少 な く 
する よう に 支 め な く て は な ら な い . ここ で は 。 入 出力 動作 を いか に 少な くす る 
か を シー ケン シャ ル ・ フ ァイル と ラン ダム ・ フ ァイル に 分 け て 論じ よう . 








(1) シー ケン シャ ル ・ フ ァイル の 場合 

プリ ンタ , テ ー プ ,。 ディ スク に お ける シー ケン シャ ルフ ァイル 等 が この 分 類 
に 入る . この ファ イル は 入出 力 命令 の 順に 入出 力 を 行う 装置 に 関係 する ファ イ 
ル で ある . この よう な ファ イル は 次 の よう な 手順 で 入出 力 装置 に アク セス する 。. 


CPU 










PRINT #1.A 


PRNT #1.B EEEEEE 
PRINT auP 1 ・ 
PR #10 一 | 


(プロ タラ ム ) 





出力 装置 
(大 出力 バッファ ) (入出 力 装置) 





この 図 で 分 か る よう に BASIC は CPU の メモ リ に ある バッ ファ が いっ ぱい に 
な っ て 始め て 入出 力 装 置 に その バッ ファ の 内 容 を 出力 する . そし て ( 図 で は 二 
つの バッ ファ を 描い た が ) 次 の 入出 力 命令 が 出さ れる と 同じ バッ ファ 内 に 再び 
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指定 され た デー タ を 上 書き し て ゆく . (入力 は その 逆 で ある .) 

この シー ケン シャ ルフ ァイル の 入出 力 方 法 の 性 質 か ら 分 か る よう に 。 入 出力 
動作 を 減ら す に は 単に 入出 力 命令 を 少な くす る だ け で は 意味 が な い . すなわち 。 
上 図 に お いて プロ グラ ム を 次 の よう に 書き 変え て も 無 意 味 な の で ある . 

PRINT #1. A BC …… 0 
入出 力 命令 は 一 つ に な っ て 大 幅 に 減っ て も 入出 力 回 数 は 不変 で ある . 

シー ケン シャ ルフ ァイル で 入出 力 回 数 を 減ら す に は , 一 つの バッ ファ に 詰め 
込ま れる デー タ の 密度 を 上 げ る こと で ある . プリ ンタ な ら 空 白 を な る べく 詰め 
る の で ある . テー プ や ディ スク で は デー タ の 圧縮 を する の で ある . この よう に 
し て 見 か け だ け で な く 実 効 的 な こと を し な いと ,。 シー ケン シャ ルフ ァイル の 入 
出力 回 数 は 減少 し な い 」 


(⑫ ラン ダム ファ イル 
ラン ダム ファ イル は 我々 の プロ グラ ム の 1 回 の 入出 力 命令 に 1 回 の 入出 力動 
作 が 伴う . 





バッ フィ 


PUT #1.5 ーー 








(CPU) (出力 装置 ) 
し た が っ て , 我々 の プロ グラ ム 内 で 入出 力 命令 の 使用 を 少な くす る と この 分 だ 
け 入 出力 動作 は 減少 する . 
以上 の よう に ラン ダム ファ イル と シー ケン シャ ルフ ァイル と の 違い を し っ か 
り 確認 し た 上 で 。 入 出力 動 作 の 減少 すなわち 入出 力 時 間 の 短 縮 を ね ら っ て も ら 


いた い 。 
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2 入出 力 デ ー タ の 圧縮 法 


92 節 で 説明 し た よう に , 入出 力 に 伴う デー タ は 密度 を 濃く する こと が 有効 で 
ある . それ に よっ て 大 幅 な 処理 時 間 の 短縮 だ が な され る の で ある . ここ で は その 
手法 を ディ スク ファ イル に 限っ て いく つか 紹介 し よう . 


(1) 整数 デー タ は な る べく 整数 型 で 
次 の 左右 二 つ の コー ディ ング を 見 て みよ う . 
PRINT #1.AI PRINT キ 1. A% 
小さ な 整数 値 (32768 一 32767) を 扱う 限り で は , 必ず 右 の コー ディ ング の 
よう に 出力 変数 は 整数 型 に すべ き で ある . これ は , 実数 型 変数 ん / は 4 バイ ト 
な の に 対し , 整数 型 変数 は 2 パイ ト で すむ か ら で あ る 。. 


(2) 入出 力 命令 の 特徴 を つか も う 

次 の 二 つ の コー ディ ング を 見 て みよ う . 

PRINT #1.AB PRINT #1,AiB 

左 の よう に する と , A と B と の デー タ 間 に 無 意 味 な 空白 が いく つか 埋め られ 
て し まう . 当然 右 の よう に すべ き で ある . この 例 の よう に 命令 を 熟知 する こと 
で デー タ の 圧縮 が 可能 で ある . 


(3) ビッ ト に 意味 を も た せよ う 

整数 型 数 値 デ ー タ は 2 バイ ト , 実数 型 数 値 デ ー タ は 4 パイ ト , な ど と 変数 を 
その 形 通り に 使う と 長 さ が 決ま っ て し まう . し か し , た と えば ある 従業 員 が 男 
か 女 か を 区 別 す る た め に 一 つの 変数 を 用 いる の は も っ た いな い 話 で ある . す な 
わ ち 男女 の 区 別 は 0 と 1 と だ け で 区 別 で きる か ら で あ る . この 男女 の 区 別 の よ 
うに 小さ い 整 数 で すむ よう な 分 類 等 に は 1 変数 を 割り 振る の は 浪費 で ある . こ 
の よう な 場合 , 整数 弄 変 数 (2 パイ トニ 16 ビ ピット ) の 各 ビ ピット に 意味 を も た せ 
る よう に する と 大 幅 な デー タ 圧 縮 と な る . 
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た と えば , 1 か ら 100 ま で の 番号 を も っ た 100 人 の 男女 を 区 別 す る デー タ を 作 
る に は 次 の よう に で きる . 


100 DEFINT a-Z 
11O_N=1OOs DIM A(N/16) 
12O FOR K=1 TON 
13O PRINT "No=" 
140 INPUT D* 
15O IF D*="m" THEN QA(K\16)=Q(K\16) DR 2^(K MOD 16) 
16O NEXT K 





こう する こと で 100 人 の デー タ が 7 変数 A(0)-A(6) に 納まっ て し まう の で ある . 


(4) デー タ は 整理 し よう 
次 の コー ディ ング を 見 て みよ う 


1400 SA 十 B 
1410 PRINT #1. AiB:S 


この S は 簡単 に A と B か ら 計 算 さ れ た も の で ある . し た が っ て , この よう な 
変数 S を ディ スク に 書き 込む の は も っ た いな いこ と で ある . デー タ は きち ん と 
整理 し , 何 が 本 質 の デー タ か を し っ か りみ ぬい て お か な いと 上 の コー ディ ング 
の よう に な っ て し まう の で ある . 

以上 三 つ の 例 を 示し た が , ちょ っ と し た 工夫 で ディ スク に 入れ る デー タ 量 は 
大 幅 に 減少 し , 1/O 時 間 の 短縮 に 役立つ も の で ある . 


入出 力 回 数 の 削減 に は デー タ の 整理 ・ 統 合 が 不可 欠 で ある . 


7853 





3 ファ イル の 最後 に は 目印 を 


イル が ある と き , その ファ イル が どれ くら い 大 きい の か 。 は 次 の 
関数 で 調べ る こと が で きる 。 

LOF 
これ を 用 いる と ラン ダム ファ イル の 最後 の レコ ー ド 番号 を 知る こと が で きる . 
また 次 の 関数 を 用 いる と シー ケン シャ ルフ ァイル の 終わ り を 検出 で きる . 

EOF 
次 の 二 つ の プロ グラ ム は , ラン ダム ファ イル RFILE お よび シー ケン シャ ルフ 
ァイル SFILE の デー タ を 読む プロ グラ ム で ある . 

100 OPEN “RFILE" AS #1 

110 N 三 LOF(1) 

120 FOR K=1 TON 

130 GET キ 1.K 

140 





- つ の フ 





210 NEXT K 
220 CLOSE 


100 OPEN “SFILE* FOR INPUT AS キ 1 
110 IF EOF(1) THEN 210 

120 INPUT #1, A, BC 

130 


200 GOTO 110 
210 CLOSE 


この よう に シス テム 関数 を 用 いる こと で ファ イル を 正常 に 読む こと は 可能 で 
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ある が 。 我々 は 次 の こと を 敢えて 要求 する . すなわち 我々 の 作成 する ファ イル 
に は 必ず 最後 の 目印 を 我々 の 記号 で つけ る 。 と いう 要求 で ある . た と えば その 
記号 を "ENDEND” と する と , 次 の よう に する の で ある . 

100 OPEN “SFILE" FOR OUTPUT AS #1 

110 


書き 込み 処理 


270 " 

280 PRINT #1, “ENDEND* 

290 CLOSE 

これ は シー ケン シャ ルフ ァイル “SFILE* の 作成 ルー チン で ある . この ファ 

イル を 読む に は 次 の よう に する . 

100 OPEN “SFILE* FOR INPUT AS #1 

110 

120 INPUT キ 1.A$ 

130 IF A$= “ENDEND* THEN 300 


入力 処理 

290 GOTO 110 

300 CLOSE #1 

この よう に する こと て で 追加 ・ 訂 正 ・ 削 除 等 の ファ イル 処理 が 非常 に 容易 に な 
る . また 本 来 自 分 の 作っ た も の に 対し て は 自分 で 責任 を も つと いう 発想 が 必要 
で ある が , EOF や LOF 関数 を 用 いる こと は 自分 の 作成 し た ファ イル を 他人 
(シス テム ) に まかせ る と いう 面 を 有 し て いる の で ある . 他人 に まかせ る 部 分 
が ある と ファ イル の 扱い を いち いち その 他人 に 伺い を 立て て 実行 せ ね ば な ら ず 
処理 が 類 ら わし く な り バ グ 発 生 の 原因 に も な る の で ある . 


自分 の プロ グラ ム は 自分 で 責任 を と れる よう に し て お こう . 
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8 秘密 保護 を し っ か り と 


パソ コン が 社会 に 深く 関与 する よう に な る と 当然 問題 と な る の が 秘密 の 保護 
で ある . これ に は 2 種類 あっ て 、 プロ グラ ム 自 体 の 保護 と ファ イル の 中 の デー 
タ の 保護 が あげ られ る . 


(1) プロ グラ ム の 機密 保護 

せっ か く 長 い 時 間 と 費用 を か け て 作成 し て も , プロ グラ ム は 簡単 に 他人 に コ 
ピー され て し まう . それ は 音楽 テー プ と 事情 が 似 て いる . この 対策 に つい て は , 
それ だ け で 厚い 1 冊 の 本 と も な る 内 容 で ある の で , ここ で は 次 の 一 番 簡 単 な 方 
法 だ け を 示す ,. それ は メー カー が 提供 し て くれ た も の で 次 の よう な 命令 を 用 い 
る . 

SAVE "ファ イル 名 ,P 

すなわち , プロ グラ ム を セー ブ す る と き P 指定 (protection) を する の で あ 
る . こう する こと で , この ファ イル の 中 味 を 単に LIST 命令 で 見 る こと は 不可 
能 に な る . 


(②) ファ イル の 中 の デー タ の 秘密 保護 
(1) と 同様 に , この 内 容 に つい て も ここ で 説明 を 完結 する こと は 不可 能 で ある . 
特に 近年 」。 コ ンピュータ 犯罪 が 増加 し て いる が , 多く の 場合 この 秘密 保護 が し 
っ か りな され て いな いこ と が 原因 で ある こと を 考え る と 。 問題 の むず か し さ が 
分 か る で あろ う . ここ で は 。 一 番 多く 使用 され て いる パス ワー ド (暗証 番号 ) 
の 方 法 を 紹介 する の に と ど め よう . 
パス ワー ド で チェ ッ ク す る に は 色々 な 段階 が 考え られ る . 
人 の プロ グラ ム の 入口 
(《⑰) ファ イル に アク セス する 前 
似 レコ ー ド に アク セス する 前 
その 他 レ コー ド の 内 容 に も 機密 段階 を 設け る , 等 の こと も 考え られ る が 一 応 こ 
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の 三 つ を あげ て お こう . 
⑦ の プロ グラ ム の 入口 で チェ ッ ク す る 方 法 は 。 プロ グラ ム 使 用 者 が パソ コン 
の 前 に 座り プロ グラ ム を RUN させ た 直後 に パス ワー ド を 問う 方 法 で ある . ① 
は ファ イル を OPEN し た 直後 に 。 また (は レコ ー ド を 呼び 出す 直前 に パス ワ 
ー ド を 問う 方 法 で ある . 
パス ワー ド の 照合 の し か た と し て は 大 きく 2 通り に 分 けら れる . 
(3) 合言葉 形 パ スワ ー ド 
(b) つき 合わ せ 形 パス ワー ド 
(⑱)0 は プロ グラ ム ユ ー ザ 全員 に 同一 の パス ワー ド を 教え , それ を 知っ た 人 間 の み 
が チェ ッ ク を パス する 方 法 で ある . これ に は 鍵 を ユー ザ 全 員 に 渡す よう な も の 
で ある . これ に 対し て (b) は ユー ザ 個 人 個人 が 自分 の パス ワー ド を 所 有する の で 
ある . 当然 (4) より も (⑪⑮) の 方 が チェ ッ ク が 厳し く な る . 
(⑮) の 方 法 は ラン ダム ファ イル に 有効 で も る. 下 の よ うに レコ ー ド 内 容 を 定義 
し て お く こ と で 容易 に この 機能 を 実現 で きる . 


登録 番号 | パス ワー ド | 個人 情報 


これ は 社員 な どの 個人 情報 が 入っ て いる レコ ー ド を 想定 し て いる が , 登録 番号 
と は 社員 番号 の よう な も の と し て 理解 し て も らい た い . 

この よう な パス ワー ド は , ファ イル の 中 味 が 見 られ て し まえ ば すぐ に 見 破 ら 
れ て し まう . その た め に ,。 これ を 隠す 方 法 を と ら ね ば な ら な い . 一 つの 方 法 は 
(1) で 述べ た ソー スプ ログ ラム の 暗号 化 で ある 、 ソー スプ ログ ラム が 分 か ら ね ば 
ファ イル の どの 位置 に パス ワー ド が ある か 不明 で ある . も う 一 つの 方 法 は , デ 
ー タ 自身 の 暗号 化 で ある . この 暗号 化 は 過去 色々 と 有名 な 方 法 が 発見 され て い 
る が , プロ グラ ム 作成 者 が 工夫 を 要する と ころ で ある . 








ファ イル の 中 味 の 保護 は , 今後 の パソ コン の 発展 に は 不可 欠 と な る . 
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ユー ディ リ デ ィ ツ ー ル の 
用 意 を 


ファ イル 処理 を 伴う プロ グラ ム の 開発 に は 色々 な 関数 。 コマ ンド 。 ユ ー テ ィ 
リティ プロ グラ ム を 使用 する も の で ある . し た が っ て プロ グラ ム 作 成 者 に 合っ 
た ファ イル 処理 用 の 道具 を 作っ て お く こ と を 勧め る . それ が ユー ティ リティ ツ 
ー ル で ある . これ を 一 つの ディ スク の 中 に し まっ て お く の で ある . 便利 な 自分 
の 道具 を 一 つの 道具 箱 に し まっ て お く の に ,。 それ は 似 て いる . ここ で は 。 便利 
な 道具 の いく つか を 紹介 し よう . 


(1) FUNCTION キー の 変更 ツー ル 
シス テム 立ち 上 げ 時 に は , メー カ の 定義 し た 命令 が ファ ンク ショ ン キ ー の 中 
に 入っ て いる . それ ら の 中 に は 。 我々 の プロ グラ ム 開 発 時 に 不要 と な る も の も 
含ま れ て いる . た と えば 。 通常 “AUTO" が メー カ 定 義 の 値 と し て 入っ て いる 
が , デバ ッ グ 中 に は 必要 の な いも の で ある . そこ で 我々 の 必要 な ファ ンク ショ 
ン キ ー を 定義 し て くれ る よう な プロ グラ ム を ディ スク に 収め て お く の で ある . 
た と えば 次 の よう な も の が 考え られ る . 
1OO 一 - defkey フ * ロフ" ラム 一 一 
110 KEY 2。"input" 
120 KEY さ 。"f ュ 1es" 
130_ KEY 6。"1print" 
14O END 
これ を ディ スク か ら 呼 び 出し , 実行 きせ れ ば いち いち KEY 命令 を 用 いて 入 
力 し て ゆく より も は る か に 時 間 が 早い 


(2) ユー ティ リティ プロ グラ ム を 使い や すく する ツー ル 

メー カ が 作成 し た ユー ティ リティ プロ グラ ム の 名 前 は 。 メー カ の 開発 番号 な 
ど が つい て いて 我々 に な じみ に くい も の で ある . し た が っ て , 次 の よう な 短い 
プロ グラ ム を 用 意 し て お く こ と を 勧め る . 
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1oo "ーー ut1yty フ * ロ 7" ラーー 
110 CLS 

120 FOR ド =1 TU 3:READ P ま (K) NEXT K 
1 さ O DaATA "2:backup-nBB" 

140 DATA "2:format.nBB" 

150 DATA "2:sysgen-nBB 

160 ・ 


170 PRINT "(1) backup フ " ロ 2 ラム 
18QO_ PRINT "(2) format フ * ロ 2~ ラ ム 





190 PRINT "( さ ) sysgen フ " ロ 2~ ラム 
200_ PRINT: INPUT " which"s ID 
210 LORD P ま (ID) 

22oO END 


これ を 実行 させ る こと で ,。 マ ニュ ア ル を いち いち 引い て ユー ティ リティ プロ 
グラ ム の 名 前 を いち いち 入力 する こと か ら 開 放さ れる の で ある . 


(3) ファ イル の 中 味 の ハ ー ド コビー を と る ツー ル 
ディ スク ファ イル (テー プ フ ァ イ ル ) は 中 味 が 見 た だ け で は まっ た く 分 ら な 
いも の で ある . ファ イル の 中 味 の 確 認 等 で どう し て も 内 容 の 一 覧 リス ト が 欲し 
く な る も の で ある . それ を も ちろ ん 画面 に 表示 し て も よい が , 一 般 的 に は し っ 
か り と し た ハー ドコ ピー と し て 残し た 場合 が 多い . 
この ハー ドコ ピー ツー ル は 次 の 特性 を も つよ うに 作成 すべ き で ある . 
(の な る べく まとめ て 簡潔 な 形式 で 出力 され る . 
(《⑳0 ファ イル の 中 味 の す べ て が みや すい 形 で 出力 され る . 
(⑳ は 当然 だ が 。(⑦ の 要請 は 出力 時 間 の 節約 か ら 重 要 で ある . 中 味 の コ ピー を と 
る の に 何時 間 も 費 や し て は 大 変 で ある . 
その 他 WIDTH や CONSOLE 命令 な ど を プロ グラ ミン グ し て お き 画 面 の 初 
期 設 定 等 を 容易 に する , な ど が 考え られ る が 。 以上 の よう な 工夫 を 用 いて 我々 
は な る べく 数 わ し い キ ー 操 作 か ら 開 放さ れる べき で ある . 





類 わ し いこ と は , パソ コン に すべ て まかせ て し まお う 
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第 8 章 


デバ ッ ク グ 法 


作成 する プロ グラ ム が 大 きく な れ ば な る ほ 
ど デ バッ グ 法 が 重要 性 を 増し て ゆく 。 ここ で 
は デバ ッ グ の 方 法 お よび 発生 に 対す る 対処 方 


法 を 示 そ う . 





4 トレ ー ザ サザ の 活用 


デバ ッ グ の 助け と な る 最も 簡単 で 有効 な 方 法 は ,。 トレ ー サ の 活用 で ある . ト 
レー サ と は BASIC が デパ ッ グ の 手段 と し て 提供 し て くれ て いる も の で , 実行 
を 追跡 (トレ ー ス ) し て くれ る . これ を 使う に は コマ ンド と し て , また は プロ 
グラ ム 中 の 命令 と し て 次 の も の を 入力 する . 


TRON 
以後 BASIC は プロ グラ ム の 実行 を , 行 番号 を 画面 に 表示 する こと て 追跡 し 
て くれ る . 
1o 5=o 


20 FOR ド =1 TO さ 
さ O 5=B+KXK 
4Q0 NEXT ド 

SQ PRINT 5 

60 END 


(TRACER の 出力 ) 
0] [20] [30] [40] [30] [40] [30] [40] [50] 14 
[60] 
行 番号 は [ ] の 内 側 に 表示 され , プロ グラ ム の 出力 結果 と 区 別 さ れる . 
この 機能 を キャ ン セ ル す る と き に は 。 次 の ステ ー ト メン ト を コマ ンド また は 
プロ グラ ム 中 の 命令 と し て 入力 する . 
TROFF 
この トレ ー サ 機能 を 用 いる と ちょ っ と し た コー ディ ング の 論理 ミス を 容易 に 
発見 する こと が 可能 で ある . た だ し , 上 手 に 制御 し な いと 画面 が 瞬時 に 行 番号 
で 埋め られ 追跡 が し に くく な る . また 設計 上 の 論理 ミス は な か な か この 機能 で 
は 捕え られ な い . 


トレ ー サ は 使い 方 を 工夫 し な いと 扱い に くい . 
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9 デス ト デ ー タ の 作成 法 


良い テス ト デ ー タ を 作成 する こと は 。 バグ の 少な い プ ログ ラム の 作成 に 重要 
な 要素 と な る . し か し 良い テス ト デ ー タ は 大 変 作 る の が 困難 な も の で ある .。 こ 
こ で は , この 良い テス ト デ ー タ の 作成 に つい て 考え て みよ う . 
テス ト デ ー タ と し て ,。 し ば し ば 用 いら れる の は 過去 の デー タ で ある . 新しく 
手 作 業 を パソ コン 処理 に 変え たり し た と き は , 手 作 業 で や っ て いた デー タ を 入 
力 し て みて , 再び 手 作 業 で 得 られ た 結果 と 照合 する の で ある . 研究 室 な ど で も 
過去 に 結果 が 知ら れ て いる よう な デー タ を 用 意 し , 新しく 作成 し た プロ グラ ム 
に 入力 し , 得 ら れ た 結果 と 既知 の 結果 と を 突き 合わ せ て プロ グラ ム の 正 耕 を 判 
定 する . この 過去 の デー タ を テス ト デ ー タ と する 方 法 は 。 し か し 明らか に 次 の 
二 つ の 欠点 を 有 し て いる . 
(1) 多く の 場合 入力 に 手間 どる . 
(2) 新しい 業務 に は 対応 で き な い . 
特に デバ ッ グ 段階 で (1) の 特性 は 致命 的 と な る . すなわち , テス ト デ ー タ の 入 
力 に 手間 取る こと は 開発 期間 の 増大 を 招く か ら で あ る . 
この 節 で は 簡単 な た スト デ ー タ の 作成 法 に つい て の み 限 定 し て 考え る . そし 
て この テス ト デ ー タ に よる デバ ッ グ が 終了 し て か ら , 過去 の デー タ が ある と き 
は それ を 入力 し て 最終 段階 の アパ バッ グ と する よう に し て も らい た い 、。 
テス ト デ ー タ と し て の 要件 は 次 の よう に まとめ られ る . 
(Q) 全 モ ジュ ー ル ・ 全 ルー チン が 実行 され る よう な も の で ある こと 
(B) 正常 な デー タ 以 外 に 誤り を 含ん だ デー タ を 用 意 す る こと 
(C) 目的 を し っ か り も っ て いる チ ス ト デ ー タ を 多種 類 用 意 す る こと 
(は テス ト デ ー タ の 性 質 か ら 当然 で ある . に つい て は , 特に 0 割り, オー 
パフ ロー, アン ダフ ロー。 変数 の 型 違い , 等 の 意図 的 な エラ ー を 含ま せろ 。 と 
いう こと で ある . (は (B) と 関係 し 重複 する が , デバ ッ グ 後に “この 種 の も の に 
対し て は 既に テス ト が 完了 し て いる " と し っ か り い える よう な も の を テス ト デ 
ー タ と し て 作成 せよ 、。 と いう こと で ある . 
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2 医 わ し /J) と ころ に は 


STOP PRIINT を 配置 


プロ グラ ム の 実行 を 追跡 する トレ ー サ (97 節 参照 ) は 画面 に すべ て の 実行 
し た 行 番号 を 表示 する た め 。 大 き な プ ログ ラム の 最初 か ら 最後 まで 追う こと は 
不可 能 で ある . この こと は 実際 画面 を 見 て いれ ば 分 か る こと で ある . 

プロ グラ ム の 大 き な 流 れ を つか み , それ が 正常 に 動作 し て いる か を 確認 する 
ー つ の 方 法 と し て , プロ グラ ム の 節目 , 節目 に PRINT 命令 を 挿入 する こと を 
勧め る . た と えば サブ ルー チン の 先頭 に 次 の よう な 命令 を 入れ て お く の で ある . 


2000 * SUBA 
2010 PRINT * SUBA CALLEDY 
2020 


する と , この サブルーチン が 呼ば る た びに , メッ セー ジ が 出力 され , 画面 を 
見 な が ら プ ログ ラム の 動作 確認 が で きる の で ある 。. 

デバ パッ グ が 終了 し た ら , この PRINT 命令 は 消却 すれ ば よい . し か し , 将来 
の バグ 発生 に 対す る 対応 を 考え れ ば 行 の 先頭 に アポ スト ロフ ィ (') を 挿入 し 保 
存 し て お いた 方 が よい で あろ う ., 上 例 で は 。 次 の よう に し て お く と 後 で 見 や す 
い . 

2010 "PRINT “SUBA CALLED* :"for DEBUG 

すなわち 。 その 1 行 に デバ ッ グ の た め の 文 で ある こと を 表示 し て お く の で ある . 
こう すれ ば , 後 で 誰が 見 て も この 命令 が 残っ て いる こと に 不思議 さ を 感じ な い 
で あろ う . 

デバ ッ グ の た め に 挿入 する 命令 と し て , PRINT 以外 に STOP 命令 が 有名 で 
ある . STOP と は , プロ グラ ム の 実行 を 停止 する 命令 で ある . これ は 次 の よう 
な 場合 に 挿入 する と 便利 で ある . 
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1750 ON K GOTO 1770, 1810, 1880 
1760 STOP : for DEBUG 
1770 "K=1 ノ バア イ 


上 の 例 で は 。K が 1, 2, 3 し か 正しい 動作 の も と で は 値 と し て と ら な いこ と 
を 仮定 し た プロ グラ ム で ある . この よう な と き , プロ グラ ム に バグ が あり , K= 
0 と か KK>3 と か の 値 が K に 入っ て いる と き , も し 行 番号 1760 の STOP 命令 
が な いと 大 変 な こと に な る . その まま 実行 は 下 に 抜け 、 妙 な と ころ で エラ ー が 
起こ る . この と き そ の エラ ー の 起こ っ た と ころ を 調べ て も , 何 の バ グ も 見 当 た 
ら な いこ と に な る . その た め バ グ 発 見 に 多大 な 時 間 を 費やし て し まう の で ある 。. 

この よう に , 異常 が あっ て も , スル ッ と 下 に 抜け て し まう よう な と ころ に は 
STOP 命令 を ちり ば め て お く と 非常 に デバ ッ グ が 容易 に な る こと が 分 か る で 
あろ う . STOP 命令 が 実行 され プロ グラ ム が 停止 し た と き に は , 我々 は プリ ン 
ト 命令 を ダイ レク トモ ー ド で 用 いて , いく つか の 変数 の 中 味 を チェ ッ ク す べき 
で ある . 上 の 例 で は 次 の よう に 入力 する と よい . 

PRINT K 
する と , K の 実際 の 値 が 分 か り 。 ど うし て K が その 値 を と っ た か の 調査 が で き 
る の で ある . 

異常 検出 の た め に で は な く と も , 長い プ ログ ラム で は STOP 文 を 入れ て お く 
と よい . た と えば , モジ ュー ル の 先頭 に 挿入 し て お け ば , そこ に 実行 が 移さ れ 
る と プロ グラ ム は 停止 する 、 この と き , 我々 は モジ ュー ル に 渡さ れる デー タ の 
正否 を 確か め ら れる の で ある . そし て 。 正常 な ら 次 の コマ ンド を 入力 する こと 
で , 再び プロ グラ ム の 処理 を 続け る こと が で きる . 

CONT 

以上 の よう に プロ グラ ム を コー ディ ング する 際 に は バグ が 発生 し て も すぐ に 

見 つけ られ る よう に する と いう こと を 心掛け る べき で ある . 
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MM バグ 発生 時 の 現場 保存 を 


論理 が 複雑 に な る と , バグ が 発生 し て も その バグ を 再現 する の が 非常 に 困難 
に な る . すなわち , 色々 な 変数 の 値 と ちょ っ と し た タイ ミン グ に よっ て バグ が 
発生 する か ら で あ る バグ が 発生 し た と き , その プロ グラ ム を 作っ た 人 が その 
場 に 居合 わせ れ ば すぐ に 対応 で きる が 通常 は そう いう こと は な い . し た が っ て 。 
バグ 発生 対策 と し て 現場 保存 対策 を 考え て お か ね ば な ら な い . 

バグ 発生 時 の 現場 保存 対策 と し て , ここ で は 次 の 方 法 を 説明 し よう . す な わ 
ち , バグ が 発生 し た ら それ に 対応 する モジ ュー ル に 実行 を 手渡 す 方 法 で ある . 
それ を 実現 させ る 命令 が 次 の 命令 で ある . 

ON ERROR GOTO ( 行 番号 ) 

これ は , も し BASIC が 検知 で きる エラ ー が 生じ た な ら 行 番号 に 指定 し た ルー 
チン に 制御 を 渡す 命令 で あり , 次 の よう に 用 いる こと が で きる . 

RUN 
1000 PROGRAM START 
1010 ON ERROR GOTO * DEBUG 
1020 














2700 S=S/N 
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4000 * DEBUG 

4010 BEEP 

4020 PRINT* 専門 家 を 呼ん で 下さ い ” 

4030 ON ERROR GOTO 0 
最後 の 命 令 で ある 

ON ERROR GOTO 0 
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と は エラ ー メ ッ セ ー ジ を 出力 し て 実行 を 止め る 手続 き で ある . 
プロ グラ ム 作 成 者 (また は その 理解 者 ) が 近く に いる と は 限ら ず , その 人 が 
現れ る まで パソ コン を 停止 させ る わけ に は いか な い 場 合 が ある . その と き の た 
め に デバ ッ グ 処理 ルー チン に は 次 の 内 容 を 盛り 込む こと を 勧め る . 
(1) 画面 の ハー ドコ ピー 
(2) エラ ー コ ー ド お よび エラ ー の 発生 し た 行 番号 の 印刷 
(3) で きる だ け 多 く の 変 数 の 値 の 印刷 
(1) が あれ ば プロ グラ ム ユ ー ザ が どの よう な 使い 方 を し た か を 知る こと が で き 。 
(2) が あれ ば エラ ー の 種類 が わか る . その エラ ー が 発生 し た 時 点 の 変数 の 値 を 知 
る こと は , デバ ッ グ に 重要 な こと で ある . それ が (3) で ある . プロ グラ ム で 用 い 
られ て いる すべ て の 変数 を すべ て 出力 する の は 大 変 で ある が , 変数 情報 は 多い 
ほど よい で あろ う . 
(1) の 画面 の ハー ドコ ピー を と る に は 次 の 命令 で よい . 
COPY③ 
また (2) に お ける エラ ー コ ー ド お よび エラ ー 発 生 の 行 番号 を 知る に は 次 の 関数 
が 便利 で ある . 
ERL ERR 
左 の 関数 は エラ ー 発 生 の 行 番号 を , 右 は エラ ー コ ー ド を 値 と し て と る . (3 の 
変数 の 印刷 は , プロ グラ ム 作 成 者 が 重要 だ と 考え る 変数 を 一 つ ひ と つ プ リン タ 
に 出力 する し か な い . 


プロ グラ ム に は , 必ず バグ が いる こと を 訪 頭 に お いて コー ディ ング し よう . 
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あと が き 


BASIC は パソ コン の た め の プ ログ ラミ ング 言語 で ある . 言語 で ある 以上 
我々 に は その 文法 だ け を 理解 し た だ け で は 真 に BASIC を 分 か っ た こと に は な 
ら な い . 色々 な いい 回 し ゃ 簡潔 な 表現 方 法 。 美しい 使い 方 な ど を 一 つ ひ と っ つ 学 
ん で ゆか ね ば な ら な い の で ある 。 

パソ コン が 社会 に 浸透 し た いま , BASIC に つい て の 理解 を 深め る こと は パ 
ソコ ンプ ログ ラマ ー に と っ て 必須 の 要件 で ある . 本 書 は その た め の 入 門 書 と し 
て 企画 され た も の だ が , この 目的 の た め に 多少 と も 役立て られ れ ば 幸い で ある . 

し か し 序 で も 述べ た よう に 本 書 を 読む こと で 即座 に よい プロ グラ ミン グ が 可 
能 と な る わけ で は な い . 最初 に 述べ た よう に , BASIC も 言語 で ある 以上 , その 
活用 の た め に は 各自 の 努力 が 必要 な の で ある . その 一 番 良い 方 法 が 、 他 人 の プ 
ログ ラム の 読解 で ある . それ は 英文 を た くさ ん 読む と 英語 力 が つく の と 似 て い 
る 人 の プロ グラ ム を 多く 読む こと で , 色々 な プロ グラ ミン グ の 新しい 発想 や 
技法 を 会 得 で きる は ず で ある . 本 書 の 内 容 が その た め の 一 助 と な る こと を 希望 
し て や まな い 。 
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